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5 } REVISION HISTORY: 

5 : v02-009 LJk0030 Lawrence J. Kenah ci 1-1981 

§ : Make sneneye necessary to support ante phys sical senery 

: cont igura ons. vfor ae names of PFN Listhead cells. Add 

9 3 abels to cells for KE and XF stored strings to allow 

é : access from INI 

8 ; v02-008 TCM0001 Trudy Sf Matthews 29-Jul-1981 
rf: ; Change all ''7Z2''s to ''730''s. 
66 : v02-007 KDM0003 Kathleen D. Morse 15-Sep-1980 
44 : Make changes to run with multi-processor privileged program. 
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XDELTA - EXECUTIVE DEBUGGER 1 4 AX/VMS_Macro v04=00 Page 
¥0%5000 DECLARATIONS eT an CMTS TEM TS ° 
0000001F 7. 7 V_PREG=31 : PROCESSOR REGISTER FLAG 
1 § RDCR=0 : READ CSR 
130 RDBUF =2 + READ BUFFER 
131 OUTCR= : OUTPUT CSR 
g OUTB=6 t OUTPUT BUFFER 
000005¢ 134 BSLSH=92 : BACK SLASH CODE 
_ 80 135 CR=13 : CARRIAGE RETURN 
00000GA 0000 1 6 LF=10 + LINE FEED 
00000027 909 137 QuoT=39 + QUOTE 
900000 F 00 1 8 RUBOUT=127 + RUBOUT CODE 
0000002F 0 139 SLSH=4 : SLASH CODE 
000 140 
0000 141 
0000 148 
464 143 ; 
000 144: OWN STORAGE: 
0000 145: 
0000 146 .LIST MEB : DISPLAY MACRO EXPANSIONS 
0000 147 TIF oF su PROCESS 
0000 148 *PSECT 
0000 149 DELBASE:.LONG Bet bAsé=De : RELATIVE PAGE NUMBER OF WRITABLE 
0000 150 LONG iT sDELEND-DELBASE>E*C5i1; REL PAGE NUMBER OF END OF WRITABLE 
0000 «181 “LONG DELTA_START-DELBASE : START ADDRESS 
0000 138 TIFF 
00000000 «15 “PSECT ZS$DEBUGXDELTA,LONG 
0000 154 “ENDC 
0000 155 CONTEXT: ; 
00000000 0000 156 .LONG 0 : BUFFER PADDING 
00000034 0004 157 INBUF: .BLKB 48 : INPUT BUFFER 
00000000 0034 158 STATUS: .LONG 0 ; STATUS FLAGS 
00000000 0038 159 F1: “LONG 60 : FIELDS 
00000000 003¢ 160 Fe: “LONG 60 ; 0- 
00000000 0040 161 F “LONG 0 ; 
00000000 0044 16¢ Fa: “LONG 0 : 
00000000 0048 163 FS: LONG 0 ; 
00000000 004C 165 MFYFLG: .LONG 0 ; MODIFY ENABLE FLAG FOR OTHER PROCESS 
0050 166 + ADDRESS SPA 
00000000 9050 167 PID: .LONG 0 : PID FOR ADDRESS SPACE O=>SELF 
00 0054 169 FCTR: .BYTE 0 : FIELD COUNTER 
0 bee 171 DTYPE: .BYTE é : DATA TYPE 
0 056 1% CURTYPE : .BYTE : CURRENT TYPE 
00 0057 174 OPER: .BYTE 0 : OPERATOR 
38 175 B: : BASE OF DATA. AREACCENTER) 
5 176 CURD CURDOT: .LONG 0 ; CURRENT LOCA TION 
0900000 - 6SF “LONG : QUANTITY 
000000 6 178 ¢ OUTBUF : “BLKL 4 : OUTPUT surier 
, 0: ; REGISTER SAVE AREA 
i : SAVREG: : REGISTER SAVE AREA 
00000074 0070 1 .BLKL 1 > R 


XDELTA = EXECUTI 
v04-000 DECLARATI 984 
78 0074 184 -BLKL 1 
7 78 185 SAVR2: ptt 1 
43 1 6 -BLKL 1 
1 “BLKL 1 
8 4 1 3 “BLKL 1 
§ 4 i 0 “Bie i 
94 § 191 “BLKL 1 
800009" 9698 198 ‘Beet 
A 9C 19% *BLKL 1 
Ad O0A 195 SAVAP: .BLKL 1 
AS OOAG 1 g -BLKL 1 
0000 aC AS 197 SAVSP: ‘BLKL 1 
0000080 OOAC 198 SAVPC: ‘BLKL 1 
00084 0080 199 SAVPSL: .BLKL 1 
0000086 0084 200 SAVOCR: .BLKW 1 
00000088 086 o1 SAVRCR: <BLKW OT 
0000008¢ 0088 08 § SAVRXCS:.BLKL 1 
0000008¢ ooB¢ 05 ¢ CONTEXTSZ=.=CONTEXT 
doB¢ 07 RESERVE SPACE FOR MULTIPLE MODE 
ooB¢ 09 : IE DF ,SW_PROCESS 
ooB¢ 1 oe “BLKB CONTEXTSZ 
00BC ig "88 Ts.=CONTEXTSZ+<DTYPE=CONTEXT> 
O0OBC 214 "BYTE 2,2 
O0OBC 215 *=SAV 
OOBC 216 ENDR 
0OBC 217 ENDC 
00OBC 218 
a 
o08¢ 1 ; BREAK POINT DATA 
00000088 00BC : BRKADR=.-4 
boB¢ 4 IF NDF,SW_PROCESS ; 
C 5 XDELIBRK:: : 
00000000' 008 $ .LONG  INISBRK 
C a INIBRKA:.LONG 0 
C SENDC 
9000000¢ C 0 “BLKL 7 
9900000 DC 1 NBRK=<,-4-BRKADR>/4 
MOOT Bope | $ag OKOPnen LL 
000000E4 00DD rs .BLKB 7 
ESR 
9 9 E4 $ BRKDSP=.-4 : 
9 100 104 3 BRKCOM=.-4 
124 0104 240 -BLKL 8 


I etanaee a. i or 188e 9g: i; 8 Yas yee ne ares | 


MP.SRCIXD LTA. MAR; 1 


L 
OUTPUT CSR SAVE 
INPUT CSR_ SAVE 
AST ENABLE SAVE LOCATION 
CONSOLE RECEIVER STATUS 
: SIZE OF PER MODE CONTEXT AREA 


CONTEXT AREA 


TRIP Ie TE Tee Ieee rere re rererererererery 
Da 
— 
— 


; FOR EXEC,SUPER AND USER 


POINT AT DTYPE,CURTYP 
SET TYPE TO LONGWORD 
RESTORE LOCATION COUNTER 


ADDRESS OF INITIAL BREAKPOINT 
FOR PROCESS VERSION 
INITIAL BREAKPOINT 


OTHER BREAK POINT ADDRESSES 
NUMBER OF BREAKPOINTS 


OPCODE 
IAL OPCODE 
INING OPCODES 


DISPLAY LOCATION START 
; COMMAND START 
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DECLARATIONS g- SEF} 3b 88: 86: 18 ry SRCIXDELTA.MAR; . (3) 
124 4 
124 48 x XREGV: .BLKL 3 : X REGISTER VECTOR 
1 XDEL -LOADBAS : : BASE OF LOAD 
1 44 0 + CPU DEPENDENT CODE 
' 01 45 . SCHSGL_CURPCB : X4 = CURRENT PCB ADDRESS 
* 0138 46 -LONG SCHSGL“PCBVEC : X5 = BASE OF PCB VECTOR 
13¢ 84 ‘ NDF ,SWPROCESS ; 
1 f 48 .LONG PFNSAWSSWPVBN ; X6 = SWAP _VBN 
14 4 -LONG PFNSAL“PTE + X7 = PTE ance POINTER 
144 30 LONG $AL“B : X8 = BACKUP ADDRESS 
148 1 -LONG PFNSAWIREF CNT : X9 = REFERENCE COUNT 
146 3 .LONG PFNSAx~FLINK : XA = FORWA 
1 ; PFNSAx~BLINK ; XB = BACK L 
000000' 0154 254 “LONG PENSAB STATE : XC = STATE 
000000' 0158 255 “LONG _ PFNSAB-TYPE : XD = TYPE 
15¢ 36 XDSSGL_XESTRING:: 
0000000" 01 5 .LONG  XDS$GT_WORD_PFN ; XE;E WITH XO = PFN , DEFAULT TO WORD ARRAY 
16 38 XDSSGL_XF STRING: : 
90000000" 16 5 .LONG XDSS$GT_WORD_PFN : XF;E WITH RO = PFN , DEFAULT TO WORD ARRAY 
00000168 0164 260 MCHKSAV:.BLKL 1 ; SAVED WE ONTENT OF MACHINE CHECK VECTOR 
016 61 cIFF + FOR PROCESS VERSION 
016 6¢ <BLKL 10 ; 
016 6 T110sB: <BLKL 2 : 10 STATUS BLOCK FOR TERMINAL READ 
16 64 TICHAN: .BLKL 1 + CHANNEL NU 
1 65 T ;LONG 2,TTSTR + ACTUAL ADDRESS FOR DESCR SET BY INIT 
16 66 TTSTR: .ASCII /fT/ : 
016 67 DBGACTIVE: : ACTIVE FLAGS BY ACCESS MODE 
016 68 -LONG 0 ; 
O16 $9 EXITBLK: : EXIT HANDLER BLOCK 
16 0 .LONG 0 3 
16 71 EXIHADR:.LONG EXIHANDLE : EXIT HANDLER 
16 rg “LONG 1 + ARGUMENT COUNT 
16 73 EXCODA: .LONG EXITCODE : ADDRESS TO STORE EXIT CODE 
016 74 EXITCODE: ; 
O16 75 .LONG 1 : RECEIVER FOR EXIT CODE 
16 id: KCOND: :LONG 0 : PREVIOUS KERNEL HANDLER 
0168 77 ECOND: :LONG 0 + PREVIOUS EXEC HAN 
168 78 SCOND: <LONG 0 : PREVIOUS SUPER HANDLER 
16 79 T : : TERMINATOR MASK MOESERIPTOR | 
16 0 .LONG 16 ; MASK LENGTH 
16 1 “LONG TERMAS MASK ADDRESS 
16 é TERMASK:.LONG <1a9>!<1a10>!< 1a13>! <la2h> TAB, LF,CR,ESC 
16 “CONG <1a2>i<la15>i<1a29> ; DOUBLE quotes SLASH, EQUALS 
16 4 "LONG <1a19> *s! 
19 5 -LONG 0 : 
16 5 .ENDC : 
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+ DECIMAL AND HEX CHARS 


DOT = CURRENT LOCATION 
COMMA = FIELD SEPARATOR 
OPERATORS 


ey ADD 
= SAM 3 AS PLUS 
PERATOR 


ATOR 
° SUBTRACT OPERATOR 
LBRACK ET = LEFT BRACKET 
BASE OF TERMINATOR LIST 
INDIRECT 


LINEFEED = 
RETUR 


:7 LAY 
sseare ° PREVIOUS LOCATION 


NUMBER OF Sark aateaea 

SEMI = gt Meet oo 

COLON = SEPARATE PID FORM ADDRESS 
Pe PROCESSOR REGISTER PREFIX 

Q = LAST QUANT 

QUOTE - BEGIN CHAR STRING 


AL PREFIX 

GH, P1 ase Ace PREF IX 
STER P 
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XDELTA = EXECUTIVE DEBUGGER SEP=1984 02:02:16 VAX/VMS Macro v04=00 
v06-000 PRIMARY COMMAND SCANNER 197 3EE | 32 95:96:18 tne SRCIXDELTA.MAR; 1 
19 .SBTTL PRIMARY COMMAND SCANNER 
1 3 
13 : PRIMARY COMMAND SCANNER 
e338 
00 OD OA 3F 48 45 OD OA 196 5 OUTER: .ASCIZ <LF><CR>/EH?/<LF><CR> 
0000 019A . DCOM:  .WORD : CALL ENTRY POINT 
19¢ : “IF SW_PROCESS : FOR PROCESS VERSION ONLY 
19¢ 39 MOVAB OSBCEKCEP. CrP) + SET CONDITION HANDLER ADDRESS 
13. 11 019 «341 8 SCANP + ENTER SCANP 
54 OF AF 3 19 4¢ ERROR: MOVAB OUTER,R4 t SET ADDR OF CONTROL STRING 
0109 1A 4 SBW =: OUTZSTRING : OUTPUT ASCIZ STRING 
SE SD b 1A 44 SUPERST:MOVL  FP,SP t RESET STACK 
59° AC AB QE O1AB = 345 MOVAB INBUF-B(R11),R9 : RESET STRING ADDRESS 
69 94 OAC 46 CLRB —s_ (R9) : AND FORCE READ 
02¢6 30 1AE 4 BSBW RESET + RESET SCANNER 
62 10 018 48 SCANP: BSBB  NEXTP + SCAN INPUT 
FCO 183 4 BRB SCANP + SCAN IT A 
1B 50 NEXTP: + PROCESS NEXT PRIMARY CHAR 
0206 30 185 351 BSBW GETCHAR : GET CHARACTER 
AB AF 2A 5 A 0188 3g LOCC  R8,#NPRIM, PRIMARY : CHECK 
oF 13 1BD 035 BEQL ERROR : NOT F ERROR 
50 2a 50 C3 O1BF 35% SUBL3 RO, #NPRIM,RO : RATIONAL TSE INDEX 
01C 55 CASE RO ,LIMIT=#16, <- : 
o1¢ 36 $ DOT = CURRENT LOCATION 
1c 5 hA,- : COMMA = FIELD SEPARATOR 
gic 58 OPERATOR, - : PLUS = ADD OPERATOR 
1¢ 59 OPERATOR. - : BLANK = ADD OPERATOR 
o1c 60 OPERATOR. - : @ - SHIFT OPERATOR 
1¢ 61 OPERATOR, - : ® = MULTIPLY OPERATOR 
1¢ 6¢ OPERATOR ~ : % = DIVIDE OPERATO 
1¢ 6 : MINUS = SUBTRACT/NEGATE 
o1c 64 NECACET, - : LEFT BRACKET = MODE SELECT 
01¢ 3 TAB : TAB = INDIRECT 
gic 6 LINEFEED,- : LINE FEED = NEXT LOCATION 
1¢ 6 RETURN, - : RETURN = CLOSE OPEN CELL 
01C 68 SLASH, - : SLASH = OPEN FOR DISPLAY 
O1C DQUOTE,- : DOUBLE QUOTE - OPEN FOR ASCII DISPLAY 
o1¢ EQUALS,= : EQUALS = DISPLAY VALUE 
1¢ ESCAP,- ; ESCAPE - PREVIOUS LOCATION 
1¢ STEP, : INGLE STEP 
1¢ SEMI. ; semi COLON = SECONDARY COMMAND 
1¢ COLON,- ; COLON = = SEPARATE PID FROM ADDRESS 
1¢ PREG, - : "PY = PRO ESSO OR REGISTER 
1¢ QUANT, - > 'Q* = LAST QUANTITY 
1¢ QUOTE.- : QUOTE - BEGIN ASCII STRING 
1¢ REGISTER,- ; 
1¢ OBL,- : G = GLOBAL PREFIX 
1¢ HIGH, - : H = P1 SPACE PREFIX 
IC } KREG, ~ : X REGISTER 
19° 10 50 aF OIC CASEW RO, #16,$°#<<30001$-30000$>/2>-1 
1¢ 300008: 
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PRIMARY COMMAND SCANNER -SEP=1984 02:07:42 (CMP.SRCIXDELTA.MAR; 1 
C8" 01C7  SIGNED_WORD DoT 30900 
D4" 01¢9 - $1 GNED-WORD - 
6a" 01¢B ~SIGNED-WORD § OPERATOR- $ 
A’ 01CD ~SIGNED-WORD § OPERATOR- $ 
A’ O1CF -SIGNED-WORD § OPERATOR- $ 
6A" 0101 ~SIGNED-WORD  OPERATOR- $ 
ga! 1D ~SIGNED-WORD § OPERATOR- $ 
3" OD ~SIGNED-WORD § NEGATE~30 
cB 1D SIGNED -WORD LBRACKET- 0$ 
F* 0109 ~SIGNED-WORD  TAB-30000 
2B' 0108 ~SIGNED-WORD LINEFEED-30000$ 
6D; 1DD ~SIGNED-WORD § RETURN- $ 
C 1DF “SIGNED-WORD  SLASH=3 
0087" O1€1 ~SIGNED-WORD  DQUOTE-30000$ 
0 Al O1E ~SIGNED-WORD  EQUALS-30000$ 
BF" O1E ~SIGNED-WORD  ESCAP-30000$ 
06" OIF ~ SIGNED WORD STEP-3 O$ 
C4" O1E9 :SIGNED-WORD  SEMI- $ 
8° 0168 “SIGNED-WORD COL 00$ 
06 * 1D <SIGNED-WORD  PREG-30000$ 
0 D5" O1EF . SIGNED-WORD UANT= 900s 
616: 1F1 ;SIGNED-WORD  QUOTE- 908 
0 ED: 163 -SIGNED-WORD REGISTER-30000$ 
0043" O1F <SIGNED-WORD § GLOBL-30000$ 
0049" O1F7 SIGNED -WORD HIGH=3 000$ 
041B° 169 meen -SIGNED-WORD  XREG-30000$ 
10 50 61 O1FB 383 CMPW Ss, #16 ; IS NUMBER > RADIX 
9 18 OF 4 BGEQ RROR : YES 
ae ee Ys ADE ORORG : ANDCADD NEW DIGIT 
6A 04 cB 06 ; INFLD: BISL #<faV_INFIELD>, (R10) : NOTE FIELD INPUT 
0 09 8 $B : NEXT PRIMARY CHARACTER 
0A 390 
54 (01 F 9% OA 91 GLOBL: ROTL #31 #1,R4 ; Renee Ula Egmont SPACE PREFIX 
54  7FFEOO00 7 D0 19 93 HIGH: VL #*X7FFEO000,R4 + P1 SPACE BASE ADDRESS 
so 8 o8 BSIb HEPAT! ASIP amaze ca raeaeea 
E7 AF «OOF «(021C)~| 39 PUSHAB INFLD : RETURN THROUGH INFLD 
8 4 of 3 BRE ENDEXPR 


K 6 
voe=000 ENDERPR = END EXPRESSION "$r$Ep-198¢ 08:09:48 Em. SReaXDELTALRARs? ee 


IF ‘ .SBTTL ENDEXPR = END EXPRESSION 
"4 ; ; 
1F 408: 
1F 404 
1f 405 ENDEXPR: ; 
03 ga 7 +€5 OOF 4 : BBCC #V_NEGATE,(R10),5$ + SKIP IF NOT NEGATE 
6 56 cf 4 MNEGL R67R6 + NEGATE ACCUMULATOR 
4 8 5$: esep.=Os«é108 + PERFORM OPERATION 
6 04 4 CLRL RG + CLEAR ACCUMULAT 
FF AB A 41 CLRB = OPER-B(R11) : INIT OPERATOR 
05 D 41 RSB + AND RETUR 
— 412108: CASE OPER-B(R11) , TYPE=B, <- + DO OPERATION 
— 41 ADD, = : , PLUS 
E 414 ADD, = ; BLANK, PLUS 
; “ae SHFT,= ; SHIFT 
E 416 MUL,- 3 MULTIPLY 
: au DIV, ; DIVIDE, 4° 
04° 00 FF AB. 8F atone CASEB OPER-B(R11) ,#0,$“#<<30008$-30002$>/2>-1 
17° «SIGNED_WORD  ADD-30002$ 
17° SSIGNED-WORD ADD-30002$ 
000A" SSIGNED“WORD  SHFT-30002$ 
OOOF* 0239 - SIGNED-WORD AU 30008 
0013" -SIGNED“WORD  DIV-30002$ 
D 30003$: 
57 57 56 7 D 419 SHFT: ASHL  R6.R7.R7 : SHIFT 
0 41 420 RSB + AND EXIT 
57 56 c4 4g 421 MUL: MULL R6,R7_ ; MULTIPLY 
§ 0245 4 : RSB : AND EXIT 
57 56 cé 46 423 DIV: ODIVL R6,R7 ; DIVIDE 
0 49 426 RSB > AND EXIT 
57 56 C0 4A 425 ADD: ADDL R6,R7~ ; ADD 
0 4D 4 : RSB : AND EXIT 
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$7 aati 88: 86: i$ Ya, SRCIXDELTA.MAR . 

.SBTTL SLASH = OPEN CELL 
OPEN SPECIFIED CELL 

: DISPLAY IN ASCII 

ISB #<1V_ASCII>, (R10) > SET ASCII FLAG 

RB OPEN ; 
BICB  #<1@V_ASCII>, (R10) : CLEAR ASCII DISPLAY MODE 
BSBBSsdENDF ELD ; TERMINATE FIELD 
BBS #V_F1,(R10),5$ ADDR SPECIFIED? 
MOVL QUAN-BCRI1>. CuRDOT-B(R115 : NO, GO INDIRECT 
BRB ; AND DISPLAY CONTENT 
MOVL  1-B(R11), CURDOT~B(R11) : SET NEW DOT 
EXTZV #V_PRMODE.# : GET PROCESSOR REGISTER MODE FLAG 
INSV ROT#V_PREG #1, eri 105" : AND MOVE TO SEMI-PERMANENT COPY 
BSBW + OUTPUT AND OPEN 
BBC (R10), : RANGE SPECIFIED? 
CMPL Festa), toRDDT-BCRI1) + CHECK FOR END 
BLEG RSET : YES 
i NDF Sw pPROCESS ; 
6sB8 EXTLO t INCREMENT TO NEXT DOT 
BSBy NEXTLOC t INCREMENT TO NEXT DOT 
BRB 15$ + AND CONTINUE 
BRW ERROR : DECLARE ERROR 


mM 6 
CUTIVE DEBUGGER 16=SEP=1984 02:02:16 VAX/VMS Macro V04-00 P 12 
Bee REO GRRENT OPEN CELL ~SEE= 1982 83:89:18 PAX/YRS Macro vor. 00 it) 
4 ie? .SBTTL RETURN = CLOSE CURRENT OPEN CELL 
4 462; 
4 48s ; RETURN = CLOSE CURRENT OPEN CELL 
4 665° 
4 466 RETURN: ; 
18 «10 4 46 tt ENDFIELD : TERMINATE CURRENT FIELD 
OA 6A 00 ES 6 489 BBCC  #V_OPEN, (R10) ,10$ + SKIP IF NONE OPEN 
03 6A 0 1 A 470 BBC #V7F1, (R10) ,RSET : SKIP IF NOTHING TO STORE 
056 0 BF 471 BSBW ss: DES fT + DEPOSIT 
iE 1 029 476 RSET: BRW RESET + RESET SCANNER 
F9 6A 0B é 0294 473 108: BBC #V_F1, (R10) ,RSET + DONE IF NO INPUT 
0104 31 0298 47% BRW eaC1 + OTHERWISE OUTPUT 
0298 475 .DSABL LSB : 
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v04=000 = OBTAIN DATA SPECIFIED ~eee 188s BSi05i1S PAR/ URS Macro voee ot wee i) 
498 .SBTTL FETCH = OBTAIN DATA SPECIFIED 
° ; FETCH SPECIFIED DATA 
7 FETCH ; 
i BBS #V_PREG, (R10) ,40$ + BR IF PROCESSOR REGISTER 
05 w1F DF >SW_PROCESS ; 
06 TSTL pib-BtR11) : CHECK FOR PROCESS GET 
07 BNEQ 50$ ; BR IF YES 
09 CASE CURTYPE-B(RI1), »TYPE=B,<~" ; OPERATE ON TYPE 
10 10$,- : BYTE 
511 g08,- + WORD 
318 308, + LONG 
CASEB CURTYPE=B(R11),#0,S°#<<30005$-30004$>/2>-1 


~SIGNED_WORD  10$-30004$ 
» SIGNED -WORD 0$-30004$ 
seneen . SIGNED WORD 0$-30004$ 
10S: MOVZBL @CURDOT~B(R11) ,QUAN-B(R11) eal GET BYTE 
20$: MOVZWL @CURDOT-B(R11), QuAN-B(R11) : GET WORD 


URN 
30$: MOVL § @CURDOT-B(R11), Quan-8(R11) ai? GET LONGWORD 
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TNH Hn > > > OLWMO OOO Srvc oloCcloTCTTCCVCTCOOOOOOUOO O- 


514 
515 
516 
517 
518 
519 RSB ; RETU 
520 wIF NDF ,SW_PROCESS 
551 40$:  MFPR — CURDOT=B(R11) ,QUAN-B(R115 GET PROCESSOR REGISTER 
MFPR  CURDOT-B(R11), QUAN-B(R115 
522 RSB ; 
323 oe .IFF t FALSE IF PROCESS VERSION 
525 SCMKRNL_S B*FTCHPREG, (AF) : CALL IN KERNEL MODE TO FETCH 
527 50$: BRW FETCHP : FETCH FROM FOREIGN PROCESS 
3 8 .ENDC 
530 IF DF ,SW_PROCESS : 
531 FICHPREG: : 
: “WORD 0 + ENTRY MASK 
MOVAB W*PREXC, (FP) : SET EXCEPTION HANDLER 
4 MFPR CURDOT-B(R11) ,QUAN-B(R11) GET PROCESSOR REGISTER 
“ MOVL  #1,RO ; RETURN’ SUCCESS 
: $ RET 3 
538 -ENDC : 
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XDELTA = EXECUTIVE DEBUGGER 1 =SEP-1984 03:02:16 VAX/ VMs Macro V04-00 Page 16 | 
v04-000 OUTPUT = DISPLAY CONTENT -SEP-1984 02:07:42 (CMP.SRCIXDELTA.MAR; 1 (1) 
EF i .SBTTL OUTPUT = DISPLAY CONTENT 
EF : : OUTPUT CONTENT 
EF 38 6uTeB 
1¢ 0C 04 O2EF .BYTE 4,12,28 ; STARTING DIGIT LIST 
F 69 .SBTTL LINE FEED = DISPLAY NEXT 
Hae 
F 64 LINEFEED: : 
FFBF 30 OdF 65 SBW Ss RETURN : CLOSE OPEN CELL 
F 66 NEXTLOC: : PROMPT WITH NEXT LOCATION 
E8 10 OF 6 SBB  =NEXTDOT t INCREMENT LOCATION 
F 68 LOCPROMPT : : DISPLAY ADDR/CONTENT 
28 10 O2F7 6 SBB OUTPUTA + OUTPUT ADDRESS 
BE 10 O2F9 : LOCOUT: BSBB  s«-FETCH + FETCH CONTENT 
6A 01 CB 0 re , BISL  #<1@V_OPEN>, (R10) > INDICATE OPEN CELL 
FE ig OUTPUT: : 
51 FE AB 9A OoFE 57% MOVZBL CURT YPE-B(R11) RI + GET TYPE 
52. £9 AF41 9A 030 275 MOVZBL OUTBBLR1),R2 : INIT DIGIT SELECTOR 
53 04 AB DO 030 76 MOVL QUAN-B(R11).R3 : GET QUANTITY TO DISPLAY 
04 6A 01 £0 0308 577 BBS #V_ASCII, (R10) ,10$ : CHECK FOR ASCII OUT 
53 «10 peor 578 BSBB OUTCOM 3; OUTPUT NUMBER IN HEX 
OF 11 0311 «579 BRB Os : AND EXIT THROUGH OUTSPACE 
5208 AB 33 00 0313 380 10$: mOVL R -OUTBUF-BCR11) : PUT STRING IN BUFFER 
08 AB42 494 0318 582 CLRB = OUT BUF -B(R11)CR2] ; MARK END OF STRING 
59 10 O31F 585 BSBB  OUTZBUF + OUTBUT ASCIIZ BUFFER 
0088 31 0321 584 20$:  BRW OUTSPACE : FOLLOW WITH SPACE 
0324 585 
| 
| 
| 
| 
| 
ae re ene - | ed 


— | 


— 7 
XDELTA - EXECUTIVE DEBUGGER 16-SEP-1984 02:02:16 VAX/VMS Macro v04=00 
v04=000 OUTPUTA = OUTPUT ADDRESS Sets 7 95:96:18 Yn SRCIXDELTA.MAR; 1 
4 ? .SBTTL OUTPUTA = OUTPUT ADDRESS 
4 § ; OUTPUT ADDRESS 
4 3 OUTPUTA : OUTPUT ADDRESS 
908p 30 4 36 BSBW =SsCRLF ; OUTPUT CR/LF 
53 18 AB 9E 7 59 MOVAB SAVREG-B(R11),R3 + BASE OF REGISTER AREA 
B 59% IF DF ,SW_ PROCESS : ONLY FOR PROCESS VERSION 
B 595 TSTL P16-BTR11) + CHECK FOR OTHER PROCESS ADDRESS 
8 36 BNEG 3$ : BR IF YES 
53 6B 53 C3 8 38 SUBL3 R3,CURDOT-B(R11),R3 : COMPUTE OFFSET INTO REGISTER AREA 
i F 59 Liss. isS$ : NOT GENERAL REGISTER 
53 04 CB; 1 690 DIVL #4,R3 : SCALE TO LONGWORD NUMBER 
OF 53 «1 4 601 CMPL) =sR3, #15 : CHECK FOR MAX REG NUMBER 
OA 14 7 60¢ BGTR 5$ : GTR, NOT A REGISTER 
50 52 ef A 9 ’ 603 MOVZBL wr nrR’ RO ; OUTPUT PREFIX 
33 ps 0 3 695 cURL Re : AND SET FOR ONE DIGIT OF OUTPUT 
0 4 $09 wIF DF ,SW_PROCESS : FOR PROCESS VERSION ONLY 
43 608 3$ TSTL = (RIO) : CHECK FOR PROCESSOR REGISTER 
0343 609 BLSS 5$ : BR IF YES 
0343 610 MOVL #28,R2 : SET FOR LONGWORD OUTPUT 
0343 611 MOVL PID-B(R11),R3 : GET PID OF TARGET 
034 ge BSBB  OUTCOM + OUTPUT PID As LONGWORD 
0343 61 MOVZBL #*A':'.RO : SEPARATE WITH 
034 614 BSBB -OUTCHAR : OUTPUT COLON 
0343 615 .ENDC ; 
53 6B) ODO 0345 616 5$: MOVL CURDOT-B(R11),R3 : GET ADDRESS 
52 1C) =O s0346—S «617 MOVL #28,R2 + ASSUME LONGWORD OUTPUT 
6A D3 0349 618 sit (R16) ; CHECK FOR "Conon REGISTER 
50 50 8F 9A 0340 620 MOVZBL #*A'P',RO ; PRECEDE. W TH A 'P? 
3— 10 0351 621 BSBB  OUTCHAR + OUTPUT — 
52 04 DO 0353 6 : MOVL #4,R2 : SET FIELD 10. 2 DIGITS 
0C 10 0356 623 10$: ##8SBB  OUTCOM : COMMON OUTPU 
50 2F 9A 0358 624 MOVZBL #SLSH,RO : OUTPUT SLA cH 
4 11 0358 625 BRB OUTCHAR + RETURN THROUGH OUTCHAR 
0350 6 6 OUTDIGIT: : OUTPUT ONE DIGIT 
52 D4 0340 6 CLRL = R2 : ZAP DIGIT SELECTOR 
0311 O35 : 8 BRB OUTCOM : AND MERGE WITH COMMON 
61 6 : OUTLONG: : OUTPUT LONGWORD 
52 1C pO 0361 6 OVL  #28,R2 : SET DIGIT SELECTOR 
64 6 : OUTCOM: : FORMAT IT 
54 08 AB 9E 0364 6 MOVAB QUTBUF = (R11) ,R4 : GET ADDRESS OF OUTPUT BUFFER 
51 53 04 5 fF 68 634 108:  €EXTZV R1 : GET DIGIT 
84 FDF6 CF41 $0 635 MOVB Painaay R17, (R4)+ : BUFFER IT 
so.06tCiE 6 6 SUBL R2 : NEXT DIGIT 
FO. Oo as 6 BGEQ 10 og" : DO ALL REQUESTED 
64 96 0378 6 8 CLRB ss (R44) : MARK END OF BUFFCR 
54 O08 AB 9E ZA 639 OUTZBUF:MOVAB OUTBUF-B(R11),R4 : GET START OF BUFFER 
7E 641 OUTZSTRING: ; OUTPUT ASCIZ STRING 
50 84 9A O37E 646 MOVZBL (R4)+,RO : GET A CHAR 
4 13 0381 64 BEQL 108 : BR IF DONE 


AX/VMS Macro v04-00 Page 18 
= EXECUTIVE DEBUGGER "TS -1986 03:09:49 PAP-SREIRDELTA MARS (1) 
XDELTA OUTPUTA = OUTPUT ADDRESS 
sph 0 64 BSBB = OUTCHAR | ee 
o TRING ; 
4 BRB s«OUTZS S RETURN IF DONE 
PP bs i 10$: SB + RETU 
BACK SLASH 
649 OUTASLSH: RO t SET CHARACTER CODE 
ah ches tt O3Be 831 putin : GET CHAR TO OUTPUT 
50 652 OUTR8: MOVZBL R8,RO ; OUTPUT CHAR IN R 
3 $36 OUTCHAR: CESS ° 
91 654 gif, OF S_PRO : CHECK FOR CONSOLE 
DS 0391 655 rstt ; NO, USE DEVICE DIRECTLY 
oR 33 e238 MPR 10s, TXCS,R : GEf CONSOLE TRANSMIT STATUS 
51 32 OB oe ete ee PORS_TXCS.R1 ; MERGE WITH COMMON coDE 
4 11 0398 658 — : GET STA 
$: MOVW —OUTCRCA sen 
eat 6 Rae Be Be Bean, | a 
£93 Osa bea BNEQ =—-308 : SEND CHARACTER TO CONSOLE 
23 35 DA 03A6 $68 nape RO, #PRS_TXDB + RETURN 
90 O3AA 665 308: ROVE RO, OUTBCAP) S PALSE FOR PROCESS VERSION 
stesso sat 6 As : BUFFER CHARACTER ON STACK 
OSAE be Ag I ; SAVE POINTER TO IT” 
OSE 69 Bees Sroaed tae - 
SAE 671 SYMrass Ce MsTEMLRS® fen apenas 
O3AE 67 P2=#1 ; ONE CHARACTER 
BaAe e7§ POPR. B= RCRO> ; RESTORE CHARACTER 
O3AE 675 genet ; AND RETURN 
05 O3Ar $79 OUTSPACE ho VZBL #32.R : SET CODE FOR SPACE 
0 DOM O8eD 678 RB, QUICHAR : RETURN | 
so Ba Olas GEL” ute : OW Heo 
= os tee f MOVZBL #LF,RO * SEND IT 
50 OA 9A ¢ RB OUTCHAR ; 
DS 11 O3BC 88 
Ose 8S 


XD 
vO 
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= EXECUTIVE DEBUGGER 16-SEP-1984 02:02:16 VAX/VMS Macro v06-0 Page 19 
GETCHAR = GET INPUT CHARACTER ROUTINE  'S-SEP-19B¢ So:b9;45 FAR YRS Macro vOsed we itp 


15$:  MOVAB TERMASKD RI ADDRESS OF TERMINATOR MASK DESCR 
_S EFN=#31 


i -SBTTL GETCHAR = GET INPUT CHARACTER ROUTINE 
‘ | 
ay ; GETCHAR = GET INPUT CHARACTER 
$3 3 OUTPUT: 
93 ; Rg - INPUT CHARACTER 
34 ; R9 = BUFFER POINTER UPDATED (BUFFER IN ASCIZ FORMAT) 
3 
97 GETCHAR: : 
58 89 9A 38 MOVZBL (R9)+,R8 ; GET NEXT CHARACTER 
1 i3 99 BEGL 10$ ; READ IF NONE AVAIL 
59 AC AB 9 1 10$: MOVAB INBUF-B(R11),R9 ; SET ADDRESS OF INPUT BUFFER 
j IF NDF ,SW_PROCESS ; 
5¢ 5 208: STL AP ; CHECK FOR CONSOLE 
05 4 BEQL ©. 308 ; YES 
50 6¢ 80 5 MOVW  RDCRCAP),RO ; GET STATUS 
11 3 BRB ; CHECK STATUS 
30$: MFPR #PRS_RXCS,RO ; GET CONSOLE STATUS 
50 9 0B MEPR” _#PRS$_RXCS,RO 
FO 50 E1 08 40$: BBC #7,R0,208 ; WAIT FOR READY 
C D3 09 TSTL = AP ; CHECK FOR CONSOLE 
0 1 0 BEQL 508 ; YES 
58 02 aC 90 1 MOVB RDBUF(AP),RB ; GET CHARACTER 
11 : BRE ; MERGE WITH COMMON 
50$:  MFPR #PRS_RXDB,RB ; GET CONSOLE CHARACTER 
58 21 «0B MFPR” #PR$_RXDB,RB 
.1FF FALSE IF PROCESS VERSION 


ol al et en teats oo 4 eRe a 
POD OPW OMANI MIMO © 0 2 NO SOOO SWIMM MmMmMmMmMmmmmmrn 


NNN NNN NNN NNN OOS NNO OOOO OOCCOCS 


1 
1 
1 
1 
14 : 
0 15 : 
0 1 $al0w $s . ; 
0 1 CHAN=TTCHAN, = ; INPUT DEVICE CHANNEL 
18 10SB=TTIOSB,- t 10 STATUS BLOCK 
0 1 FUNC=#<10$_READVBLK>,- ;: 
0 P1=(R9),- + BUFFER ADDRESS 
1 gs P2=#80,- : READ SIZE 
= Py 
g MOVZWL TTIOSB+2,RO : GET SIZE READ 
4 MOVE  TTIOSB+4.(RO)+C(R9J t BUFFER TERMINATOR 
5 CLRB —s- (RO) CROJ : MARK END OF BUFFER 
6 MOVL ROR : POINT TO START OF STRING 
208: MOVZBL (RE)+ RB : GET A CHARACTER 
8 BEQL 15 : EMPTY, READ SOME MORE 
8 80 8F BA 0 60$: BICB #*x80,R8 t STRIP PARITY 
F 8F ; 91 1 CPB R #RUBOUT : CHECK FOR RUBOUT 
03 6A 9 3 : BBSS  #V_RUB,(R10).70$ : SET START OF RUBOUT SEQUENCE 
FF 4 BSBW OUTBSL SH : OUTPUT BACK SLASH 
58 A 5 70$:  MOVZBL -(R9),RB : GET RUBBED OUT CHAR 
94 12 6 BNEQ 80% : SKIP INC 
9 06 INCL = R : POINT AT START OF BUFFER 
c9 11 : BRB 208 + AND GET ANOTHER | 
FFEC 30 80$: BSBW TRB + OUTPUT RUBBED OUT CHAR | 
1 04 40 BRB $ : AND GET ANOTHER 
03 6A ES 04 41 90$:  BBCC #V_RUB,(R10),1008 : TERMINATE RUBOUT SEQUENCE | 


Se —_ 
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YOr¢000 GETCHAR = GET INPUT CHARACTER ROUTINE mt ioe §5:96:18 ERP. SRCIKDELTA RAR ( 


FF7D 30 408 748 BSBW © OUTBSLSH : OUTPUT BACK SLASH 
1 04 743 1008: BBC #6,RB, 1108 + BR IF NOT ALPHA 
- HY 8 0098 744 BICB ATT : SET TO UPPER CASE 
rt te — IF NDF ,SW_PROCESS ; 
FF79. 30 41 res BBW OUTS . : ECHO CHARACTER 
89 5 90 15° 7% MOVE RB, (R9)+ + BUFFER NEW CHAR 
mse GP REY a ge Belin i Da 
58 3 91 4 ¢ CPE #CR RE ; § CHAR = RETURN 
FF 36 4 nA BSBW 3S s«CRLF : YES, SEND CR/LF 
so ac fh BE BGR FRE 1208: ER ng RARE END oF Uren 
fr ap § + a 5 BRw GETCHAR , + AND TRY AGAIN 


| 

: CHECK FOR TERMINATOR 
NO RMINATOR 

} 
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XDELTA DEBUGGER 16-SEP-1984 02:02:16 VAX/VMS Macro v04-0 Page 21 xD 
¥05 +000 PERATORS oes tS p 95:96:18 ry SRCIXDELTA.MAR; ~ va 
ae .SBTTL PLUS/MINUS OPERATORS 
; PLUS/MINUS OPERATORS 
BLANK : 3 
4 OPERATOR : 
5 BSBW_  ENDEXPR + END EXPR 
§ SUBB3 #OPERBAS,RO,OPER-B(R11) : SET OPERATOR 
RSB + RETURN 
: MONADIC MINUS = NEGATE 
NEGATE: TSTL R 3 TEST ACCUMULATOR 
7 BEOL + EMPTY 
di BSBW ENDEXPR : OTHERWISE PERF ORM OPERATION 
74 5$: XORB  #<1@V_NEGATE>, (R10) : TOGGLE NEGATE FLAG 
775 10$:  RSB : AND RETURN 
176 
77 


SAME AS PLUS 


XDELTA - EXECUTIVE DEBUGGER AX/VMS Macro V04- Page 2 | 
¥bs +000 TAB = IND IRE RT DISPLAY "978 5 sets 7 8s: 86: 18 Ya SRCIXDELTA.MAR; ° i) 
4 re ~SBTTL TAB = INDIRECT DISPLAY 
44 f ° : TAB 
68 04 AB 00 0446 7 § fAB:  MOVL = QUAN-B(R11),C Rc B(R11) INDIRECT 
6A 01 oF EF 044A g 4 EXTZV ay =PRAODE #1. (R10) ,RO : GET processor REGISTER MODE 
1 1F 50 FO O44F 5 INSV REG, #1, (R105 AND COPY TO SEMI-PERMANENT FLAG 
OF 11 4 4 , § BRB Rote” : AND DISPLAY IT 
4 788 ; 
4 é 4 § : ESCAPE = DISPLAY PREVIOUS LOCATION 
4 g 5 ? : 
456 rs ESCAP: : 
5101 00 4 8 79 VL #1, R1 : ASSUME UNIT INCREMENT 
6A 05 0459 79% TSTL (RIO) : CHECK FOR PROCESSOR REGISTER 
05 19 0458 795 LSS —-: 108 : YES, USE UNIT INCREMENT 
51 51 FE AB 96 45 36 OTL CURTYPE-B(R11),R1,R1 + FORM INCREMEN 
51 ¢ 482 797 10$: SUBL R1,CURDOT-B(R11) + AND SUBTRACT FROM DOT 
FEBF 31 0465 798 LOCP: BRW LOCPROMPT : 


| 
| 
| 
} 
PROMPT WITH CONTENT 


silo 


FES 
at 


6A OOFFFF8O BF 
" = 


~ EXE 
EQUAL 


30 
E} 


Se Di sP 


ae 
NO. 


= 
We NNN NNO 


r~ 


RRS 


CONN 


EBUGGER 


LAY VALUE 


MH 3 SS SS Ss SOOO 


SOODNA VE WN O OONAUE WO 


EQUALS: 


"$r$EP-1986 03:09:48 ERP. SReaKDEL Tacnan; 
«SBTTL EQUALS = DISPLAY VALUE 
EQUALS = VALUE DISPLAY 


.ENABL LSB : 

BSBW = ENDF ELD + TERMINATE FIELD 

BBC #V_F1,(R10) ,10$ : IGNORE IF FIELD BLANK 
MOVL F1=B(R11),QUAN-B(R11)  : SET QUANTITY 

BSBW OUTPUT : OUTPUT IT 

BRB RESET + RESET SCANNER 

.OSABL LSB ; 

RESET 

BICL #*XOFFFF80,(R10) ; CLEAR FIELD AND NEGATE FLAGS 
CLRB 3s FC TR=B(R115 : CLEAR FIELD COUNTER 
CLRQ sR + RESET ACCUMULATORS 
RSB RETURN 


row i, 


xD 
vo 


L 7 
XDELTA - EXECUTIVE DEBUGGER 16-SEP-1984 02:02:16 VAX/VMS Macro v04-0 Page 24 
v04-000 SEMI = SECONDARY COMMAND SET ~$ee = 1382 95:96:18 InP. SRCIXDELTA.MAR; 0 * th) 
4 4 : .SBTTL SEMI = SECONDARY COMMAND SET 
484 4: SEMI 
484 5: 
484 6 
484 SECOND ; 
58 484 3 <ASCII /X/ + X REGISTER SET/DISPLAY 
485 SASCIL = /P/ : P = PROCEED 
4D 04 § 0 SASCIL = /M/ + M = SET MODIFY FLAG 
49 4 1 “ASCII /1/ t I = PROGRAM COUNTER 
47 04 8 é “ASCII /G/ : G6 = GO, START 
45 04 “ASCII = /E/ : E = EXECUTE 
42 048A 4 “ASCII = /B/ : B = SET/CLR BREAKPOINT 
0000000 488 5 NSEC=.-SECOND t NUMBER OF SECONDARY COMMANDS 
488 8 SEMI: 3 
6A 01 8A 0488 2 BICB #<1aV_OPEN>, (R10) : CLEAR OPEN FLAG 
FEOD 0 O48 39 BSBW StséN NDF LELD : TERMINATE FIELD 
FF2A 49 40 BSBW GETCHAR + GET SECONDARY COMMAND CHAR 
EB AF 07 58 3A 0496 841 LOCC RB, #NSEC, SECOND : LOCATE SECONDARY COMMAND 
0499 BAe 10$: CASE  RO.LIMIT=#1,<- : SWITCH ON TYPE 
0499 84 BRKPOINT,- > SET BREAKPOINT 
0499 B44 EXECUTE,- : EXECUTE STRIN 
0499 845 60,- : SEMI-G, GO 
0499 B46 PROGCTR,- : SEMI-1, INSTRUCTION CONTER 
0499 847 MFYFLGS,= : SEMI-M, MODIFY FLAG 
0499 848 PROCED,- : SEMI-P PROCEED. 
0499 849 XSET, = ; SET XREGISTER 
0499 850 > 
06" 01 SO AF 0499 CASEW RO, #1,$°#<<30011$-3001085/2>-1 
049D 300108: 
003A" 0490 . SIGNED_WORD BRKPOINT= -30010$ 
037A" 049F SSIGNED-WORD  EXECUTE-30010$ 
00D8" 04A1 - SIGNED “WORD EO 800 0$ 
0105" 04A3 “SIGNED“WORD § PROGCTR-30010$ 
OOEC' 04A5 SSIGNED-“WORD MF YFLGS-30010$ 
OOE1" 04A7 “SIGNED-WORD  PROCED-30010$ 
0133" 04A “SIGNED“WORD  XSET-30010$ 
O4AB 30011$: 
FCFO 31 O04AB 851 ERR2: BRW ERROR ; ERROR 


m7 
XDELTA - EXECUTIVE DEBUGGER 16-SEP-1984 02:02:16 VAX/VMS Macro V04-00 
04-000 LEFT BRACKET - MODE SELECTION ~3Fb 198 O5:b9:45 Yael ems yacre, VO4=0G 
GAE 3 .SBTTL LEFT BRACKET = MODE SELECTION 
A A 
GAE 36 ; LEFT BRACKET 
4AE 38 MODES : MODE CHARACTER LIST 
43 04AE 85 eASCIL /C/ + CHARACTER 
4¢ 4AF 860 SASCII /L/ : LONG, HEX 
57 0480 861 SASCII /W/ : WORD, HEX 
42 0481 6¢ “ASCII = /B/ : BYTE. HEX 
00000004 048 63 NMODES=.-MODES t NUMBER OF MODE CHARACTERS 
25 (Bes 
4B 66 LBRACKET: : MODE SELECTION 
30 67 BSBW GETCHAR : GET MODE CHAR 
A 68 LOCC RS, #NMODES,MODES : CONVERT TO INDEX 
13 69 BEQL RR : NOT FOUND, ERROR 
£0 870 BBS #2,R0,10$ t CHECK FOR’ 'C’ 
83 71 SUBB3 #1.RO.CURTYPE-B(R11) : SET MODE 
BA b7¢ B1¢8 #<{av_ASCII>, (R10) ; CLEAR CHAR MODE 
88 874 10$: BISB #<laV_ASCII>,(R10) t SET CHARACTER MODE 
05 75 RSB 
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WDELIA, = faeEU TING DeBuaceR " "gesepetoge 09:92:16 yanryns macro vaso Page 26, 


q ~SBTTL SINGLE STEP 
7 


6A Vv opines 


: CLR V_TBIT 
+ CLEAR” ROCESSOR. REGISTER DISPLAY MODE 
: AND RETUR 


5 at ee 
VOIOOOOooO 
ormvovovTv797 


STEP: INSV  #1,#V_TBIT, AL (R19) 
BBCC  #V_PRMODE, (R10), 
20S: RET 
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DEBUGGER 16-SEP-1984 :02:1 AX/VMS Macro ¥0609 
ET/CLEAR BREAKPOINTS ~$Eb=1382 95:96:18 ry SRCIXDELTA.MAR; 1 (1) vO 
i .SBTTL BRKPOINT = SET/CLEAR BREAKPOINTS 
$ ; BRKPOINT 
88 
89 BRKPOINT: 
90 BBC #V_F1, a4 ), + $HOBRK : DISPLAY BREAKPOINTS 
91 BBS #ViF : YES, IT WAS SPECIFIED 
96 MOVL #1; : INIT INDEX 
93 10$ TSTL eRe cae) ; FIND FREE SLOT 
894 BEQL 0$ YES, GOT ONE 
95 ACBL  #NBRK,#1,R2,10$ t CHECK THEM ALL 
896 BRB ERR2 : ERROR 
97 20$: MOVL F2-B(R11),R2 GET BRKPOINT NUMBER 
898 BEQL 108 : NULL FIELD, SCAN FOR SLOT 
99 CMPL §#NBRK,R2 CHECK FOR LEGAL 
900 BLSS _ ERR2 : OUT OF RAN 
901 30$:  CLRL BRKDSPERZ] : CLEAR DISPLAY 
0¢ CLRL _BRKCOMCR2) : CLEAR COMMAND ADDRESS 
90 MOVL F1-B(R11) »RO : GET BREAKPOINT ADDRESS 
904 BEQL : ALLOW CLEAR OF BREAKPOINT 
905 IF DF ,SwW_PROCESS 
906 PUSHR #*M<RO,R1,R2,R3,R4,R5, R63 SAVE REGISTERS FOR PROTECTION CHAN 
907 MOVL  RO,RS : SET 1 stART ADDRESS 
908 MOVL  RO.R6 ; AND END ADDR ESS 
909 BSBW  SETWRT SET PAGE WRITABLE 
310 MOV (SP) ,RO ; RESTORE BPT ADDRESS 
912 MOVB (RO), (RO) TEST WRITABILITY OF ADDRESS 
913 IF DF ,SW_PROCESS 
914 BSBW SRR : RESTORE PROTECTION 
913 POPR #*M<RO,R1,R2,R3,R4,R5,ROd ; AND REGISTERS 
917 35$: BBC #V_F3,(R10) ,40$ : DISPLAY SPECIFIED? 
918 MOVL F 3=B(R11) ,BRKDSPLR2] : SET DISPLAY START 
919 BEQL 40S SKIP Test IF NULL 
920 TSTL @F3-B(R11) : CHECK READABILITY 
921 40$ BBC #V_F4, (R10) .45$ : SKIP IF NO OMMAND ADDRESS 
32¢ MOVL F4=B(R11) ,BRKCOMCR2] : SET COMMAND STRING 
32 45$: MOVL RO, BRKADRER2) : SAVE BREAKPOINT ADDRESS 
3 4 BRW RESET : RESET SCANNER AND RETURN 
9 $i : SHOBRK 
9 
9 8 SHOBRK: : 
9 MOVL 1,R5 : INIT INDEX FOR LOOP 
930 10$:  MOVL BREADRERS.R6 : GET BREAKPOINT ADDRESS 
931 BEQL 0$ : SKIP IF 
9 Q MOVL  R5,R3 : BREAKPOINT NUMBER 
93 BSBW ss + NEW LINE 
934 BSBW  OUTDIGIT : BPT NUMBER 
935 BSBW OUT SPACE : SPACE 
9 6 MOVL  RBLR : ADDRESS OF BPT 
9 BSBW OUTLONG t OUTPUT ADDRESS 
9 : BSBW QUT SPACE : SPACE OV 
9 MOVL BRKDSP R5J,R3 : GET DISPLAY STAST 
940 BEQL 3 N 
941 BSBW  OUTLONG : OUTPUT DISPLAY START 


a 


J 


R =-SEP- AX/VMS Macro vole Page 28 
R BREAKPOINTS Mer er bke 85:09:49 FAR/YRS Macro vO4=00 # @) 
53 + MOV RKCOMCRS2,R3 ; GET COMMAND STRING ADDRESS 
BEQL 0$ 3 
BSB «OUTSPACE ; SPACE. A THER 
BSBW -OUTLONG ¢ AND OUTPUT “A LONGWORD 
FFCG 55 : ACBL «so ANBRK.#1,R5, 108 : DO TH 
BRU OCR : AND EXIT THROUGH CRLF 


re a a a ee ee, 


<x 


ovo 


CUTIVE DEBUGGER Ig-SEP-1984 02:02:16 VAX/Vs Macro v04=00 Page 29 
START EXECUTION AT SPECIFIED LOCATI 5-SEP=1984 02:07:42 (CMP.SRCIJXDELTA.MAR; 1 (1) 
57 949 .SBTTL GO = START EXECUTION AT SPECIFIED LOCATION 
gE 
05 6A 08 €1 057 338 60 BBC #V_F1,(R10) ,PROCED ; JUST PROCEED IF NO VALUE 
54 AB EO AB. DO 0579 «954 MOVL F1=B(R11),SAVPC-B(R11) : SET 
a7E 935 ; BRW PROCED : FALL INTO PROCEED 
57€ 929 : PROCEED 
S7E 0958 
57E 959 PROCED: : 
04 057E 960 RET + RETURN 
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991 
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MOO OOOOOOSCSOD 


o 
CNA WN OOO NOUS WN OOo 


mc 


GGER 


COLON: 


MFYFLGS: 
B 


DOT: 


QUANT: 


PROGCTR: 
M 


VALUE: 
VALR: 


VALI: Rw 
REGISTER 
MOVAL 


BR 
REGCOM: ’ 


10$: 


XSET: 


XREG: 


XDELACV: 
MCHK: 


16-SEP-1984 
=SEP=1984 


SEMI-I, PC VALUE 


ENDEXPR 
R7,PID-B(R11) 

R6 

MFYFLG=B(R11),R1 
VALU 
CURDOT-B(R11),R1 
#V_PREG, (R10) .VALR 
#V"PRMODE, (R10), VALR 


QUAN=B(R11),R1 
VALR 


SAVREG-B(R11),R5 
REGCOM 

VALI 

GETCHAR 

RB, #16,PRIMARY 
DF, SW_PROCESS 

#°A/K1/,-2(R9) 
RR3 

EXITCODE 

ERR3 


RO, #16,RO 
(R5)CROI,R6 


NDF ,SW_PROCESS 
ERR3 


Sete Ge Ge Ge Fe Se Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Se 


05:05:16 VAX/ VMS Macro V04-0 Page 


MP.SRCIJXDELTA.MAR; 


DIFY FLAG ADDRESS 

T VALU 

DRESS OF DOT 

T PROCESSOR REGISTER? 
SET PROCESSOR REGISTER MODE 
VALUE 

QUANTITY ADDRESS 
VALUE 

PC_ ADDRESS 
F NO VALUE 

NEW VALUE FOR PC 

FIELD IN PROGRESS 

BASE OF REGISTER AREA 

H ADDRESS 


CHECK FOR EXIT COMMAND 
NO, ERROR 
YES EXIT 


ERROR, NOT HEX 
INVERT 
ACCUMULATE 
RETURN 


SET ADDRESS OF REGISTER VECTOR 
fae ty TO R6 


FIELD 
EPTION ROUTINES 
ANDLER 


I 
C 
CHECK FOR 
YES, SKIP 


DEBUGGER 
VALUE 
1019 
1020 
1088 
3001 
300138: 


OOQOOCOCOCOCOCOoooOooo 
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CPUDISP <CLR_780,- 


o- 
= 


CLR_780: 
MTP #0,#PRS$_SBIFS 
CLR_END 


#*XF ,#PRS_MCESR 


OWDNAVN EWN OOONOAUE 
o 
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°o 


Sete Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Se Se 


————— 


cH BBBRS MRR tH) LR 


MP.SRCIX TA.MAR; 1 


; *DISPATCH ON CPU TYPE® 


CLR > 
G*EXESGB plage; dition ae ps ere 


FOR 11/780: 

CLEAR SBI FAULT 

ERROR CLEARED 

FOR 11/730: 

FOR 11/750: 

SET 1 TO CLEAR MCHECK ERROR SUMMARY 


*END OF CPU-DEPENDENT CODE* 


AND DECLARE ERROR 


XDELTA ECUTIVE DEBUGGER 16-SEP-1984 02:02:16 VAX/VMS Macro v04-00 Page 3 
v06-000 STER SAVE AND RESTORE §-3 set} 85:36:18 ERP. SROIKDEL TA MARCI ° af 
p i .SBTTL REGISTER SAVE AND RESTORE 
D 1045; 
p 44 : SAVE = SAVE TARGET PEGISTERS, PC, PSL 
D 1 46 Save : 
D 104 IF NF . SU_PROCESS ; 
60D 1048 SETIPL #31 : DISABLE 
12 1F DA 06 MTPR _-#31,S*#PRS_IPL 
610 1049; JSB INISWRITABLE : MAKE THE SYSTEM WRITABLE 
FASB CF 50 7D 0610 1 MOVa , SAVREG : SAVE RO,R 
51 FASE CF OSE 61 1 MOVAB SAVR2,R : SETUP BASE FOR REMAINING REGS 
1A 1 LFF : FALSE IF PROCESS VERSION 
61A 105 $SETAST_S #0 + DISABLE ASTS 
61A 1054 PUSHAB ~=(RO) : SAVE ENABLE VALUE-1 
61A 1055 PSL R1 : GET CURRENT PSL 
61A 1 36 EXTZV #PSLSV_CURMOD,#PSL$S_CURMOD,R1,R1 ; ISOLATE CURRENT MODE 
61A 105 MULW #CONTERTSZ RI ; COMPUTE OFFSET’ TO PROPER CONTEXT AREA 
61A 1 38 MOVAB SAVREGCR1J.R1 : FORM ADDRESS OF REGISTER SAVE 
61A 105 OVL P) RO : GET POINTER TO MECHANISM 
O61A i3et Ova 12(ROS, (R14 : SAVE RO,R1 
81 52 7D 061A 1 6¢ OVO R2,(R1)+ : SAVE R2,R3 
81 54 7D 0610 106 MOVQ  R4.(R1)¢ : SAVE R4.R5 
81 56 7D 06 9 1064 MOVQ = R6, (R1) + : SAVE R6.R7 
81 58 7D 0623 1065 MOVQ = RB. (R1)¢ : SAVE RB.R9 
81 SA 7D 06 é 1066 MOV R10, (R1)+ + SAVE R16,R11 
629 106 IF NDF .SW_ PROCESS ; 
81 SC 7D 0629 1068 MOV = AP, (RIT : SAVE AP,FP 
81 OC AE 9€ 96 eS 69 MOVAB 12(SP),(R1)+ : ASSUME KERNEL STACK 
81 04 AE 7D 6 9 20 mova 4(SP), (R1)4 : SAVE PC,PSL 
4 1 re VQ BC(FP),(R1)+ : SAVE AP,FP 
4 107 SUBL3 #1,@4(AP),RO : GET NUMBER OF ARGS IN SIGNAL 
634 1074 MOVAL a4(AP)CROS,RO : POINT TO PC,PSL 
0634 1075 MOVAL 8(RO),(R1)¢4 : COMPUTE SP 
634 1 2 VQ (RO),(R1)+ : SAVE PC,PSL 
107 .ENDC : 
4 107 “IF NDF ,SW_ PROCESS ; 
4 107 MFPR #PRS_TRCS,(R1)+ ; SAVE CONSOLE TRANSMIT STATUS 
81 22 vB 4 MFPR”  #PRS$_TXCS,(R1)+ 
7 1080 MFPR = #PRS_RXCS, (RT) + ; SAVE CONSOLE RECVR STATUS 
81 20 vB 7 MFPR” #PRS$_RXCS,(R1)+ 
C 04 A 1 cLRL : ZAP DEVICE ADDRESS BASE 
a 5 - IF NDF ,SW_ PROCESS : 
32 00 DA :- 7 MTPR «= #0, #PRS_TXCS : CLEAR INTERRUPT ENABLE 
20 00 DA F 5 ATR #0, #PRS-RXCS : FOR BOTH TRANSMIT AND RECEIVE 
42 1 “IF NDF Su_PROCESS : 
5B FAIZ CF OSE 1 8 208 MOVAB BRI : AND DATA BASE ADDRESS 
4? 1 WIFE t FALSE FOR PROCESS VERSION 
7 1 MOVAB W*<B-<SAVPSL+4>>(R1),R11 : SET BASE OF CONTEXT AREA 
647 3 MOVE (SP)+, ASTEN-B(R11) : SAVE AST ENABLE 
SA DC AB 9E 0647 109 MOVAB STATUS-B(R11),R10 t SET STATUS BASE 
59 AC AB SE 0648 109% MOVAB INBUF-B(R11),R9 : POINT TO INPUT BUFFER 
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tS ht elelainininini’ 1°11 tll: 


EBUGGER 
AND RESTORE 


30$: 


RESTORE: 


RESTORR: 


10$: 


208: 


16-SEP-1984 :02:1 AX/VMS Macro Vv04-0 Page 

Breer hs O5i0osus EMP eres eper ea Meaney ° 
(Rd) ; MAKE BUFFER EMPTY 
NDF , SW_PROCESS ; 
GETScB : GET BASE OF SCB 
4 (RO ) MCHKSAV + SAVE ORIGINAL MCHK VECTOR 
MCH : SET TO XDELTA VECT 
XDELACY. “xX 0(RO) : SET ACCESS VIOLATION VECTOR 
XDELACV, *X04(R } ; SET PG FAULT VECTO 
XDELACV,*X18(RO) SET RESERVED OPERAND HANDLER 
#PS sv VEURMOD -APSLSS. curhod B(SP),RO ; GET MODE 

; CORRECT ALREADY IF KERNEL 
wPR : COMPUTE PROCESSOR REGISTER 
RO, SAVSP-BC1 : AND SAVE CORRECT SP 
SAVSP=B(R11) 

RESET : RESET SCANNER 


= RESTORE TARGET REGISTERS 


RESTORE EVERYTHING 
NDF ,SW_PROCES 
SAVPC-B(R11), 


#1,@4(AP) RO 
a4(aP)CROS,RO 
SAVPC=B(R11), (RO) 


S 
4(SP) 
FALSE. be 


GET $ NAL AR & COUNT 
COMPUTE ADDRESS OF PC,PSL 
STORE UPDATED PC,PSL 
RESTORE REGISTERS ONLY 


GET BASE OF SCB 
ae pace’ eos VECTOR 


E FAULT be 
RESTORE MACHINE CHECK VECTOR 
RESTORE hoe VECTOR 


CHECK FOR 
NO, OTHER DEVICE | 
PRS$_TXCS : RESTORE INITIAL T 


NDF ,SW_PROCESS 
GETSCB™ 


EXESACVIOLAT, “X20(RO) 
HNGSPAGEF AU f.*x24(RO) 
MCHKSAV, 4 (RO) 
EXESROPRAND, “x18(RO) 


e Se Se Ge Se Ge Ge Ge Se Se Se Be Ge Ge Se Se Ge Se 


10$ 
SAVOCR-B( 


R11),# X STATUS 
AVRXCS-B(R115 ,APRS_RXCS: AND INITIAL RECEIVER STATE 
0$ : MERGE WITH COMMON CODE 

SAVOCR=B(R11) ,OUTCR(AP) : RESTORE OUTPUT CSR 

SAVRCR=B(R11).RDCR(AP) : AND INPUT CSR CONTENT 


ASTEN-B(R11) 
saynenpiatt). RI 


SAVE AST ENABLE 
SET_BASE Se RESTORE 


(R1)4 : RESTORE Re.R 
(R1)+ Re t RESTORE R4. 
(R1)+ + RESTORE R6.R 
(R1)+ + RESTORE R8.R9 
(R1)+ RIO > RESTORE R16,R11 
NDF ,SW_ PROCESS F 
(R1$+,KP + RESTORE AP. FP 
SAVREG, RO t RESTORE RO.R1 
: FALSE IF PROCESS VERSION 
(RID+, BFP) ; SET NEW VALUES FOR AP. FP 
8 (AP GET MECHANISM POINTER 
SSAVREGOSAVSP>(R1), 12(R05 ; STORE UPDATED RO,R1 
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uw 


PACA 
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zaD- 


— 
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SQL 


2) —b —) tt 


Ig- P- 
STORE -SEP- 
MOVPSL R1 
EXTZV  #PSL$V_CURMOD, #PSL$S_CURMO 
BBCC R1,DBGACTIVE, $0$ ; 
TSTL P)+ ; 
BEQL $35 ; 
SETAST_S "1 : 
-ENDC ; 
TIF NDF , SW_PROCESS ; 
J$8 INI SRDONLY : 
-ENDC ; 
RSB ; 


198¢ 88:00:48 EMP. SRCINDELTALMAR; 


; GET CURRENT PSL 


D,R1,R1 - GET CURRENT MODE 
CLEAR ACTIVE BIT FOR MODE 


CHECK FOR AST ENABLE 
NO 


; RE- ENABLE AST RECOGNITION 


; REPROTECT THE SYSTEM CODE 


AND RETURN 


Page 


50 


a5 


it 
00000000 ' EF 


"$$Ep=1 984 


-SBTTL GET SCB ADDRESS 


SUBROUTINE Ny I 
; ADDRESS OF T 


} INPUTS: 
OUTPUTS: 


RO = SCB ADDRES 
ISTERS PRESE 


OTHER REG 

NDF , SW xpRocess 
#PR Ren 

MEP Pepas _MAPEN,RO 


1 
#PRS_SCBB,R 
MFPR™ GPRS. SCBB,RO 


2 
SCBSAL_BASE ,RO 


BS :06:18 FAN/ YRS Macrae VOs~09 


RVED 


MP.SRCIXDELTA.MAR; 1 


LED TO GET THE PHYSICAL OR VIRTUAL 


NOT FOR PROCESS VERSION 
GET MAPPING STATUS 


; BRANCH IF MAPPING ENABLED 
; ELSE GET PHY ADDR OF SCB 


JOIN COMMON RETU 


RN 
IF MAPPING ENABLED, GET SCB VA 
RETURN 


——d 


a Page 36 
k 8 AX/VMS_ Macro V04-0 (1) 
SEP=1 TA.MAR; 
soFRECUTIVE, DEBUGGER "PSEp=198e 03:09:45 PAP-SRCINDEL 
; GEA 1187 .SBTTL BPT TRAP HANDLER 
A NS : BREAKPOINT TRAPS 
oA i ; : se, ; BREAK POINT MESSAGE 
2 42 20 O6EA 1191 GNSG: -ASCIZ. / BRK AT / i LONGWORD ALIGNMENT 
ise rag Sop Beat IF" Nofesuprocess | EXE ERS Fon 
ei 1198 —— -1FF : DELTA BPT ENTRY 
F4 1196 XDELBPT: : REGS AND DISABLE 
Fa 18 sou save : GET INDEX OF BPT 
b00$ 30 ber? 1199 BSu  GETBPTX i CHECK FOR MATCH 
10 13 Ogre i301 she RESTORR RESTORE REGISTERS ONLY 
Free 3 ore ste Ory NDF SU PROCESS : GET IPL 
a MOVZBL 6(SP) ,=(SP) ; GET Ie 
BE DA 0705 imp EXESBREAK i FALSE IF PROCESS VERSION 
oooodso0'eF 19 708 1206 me 
70E | + sees UNEXPECTED BREAKPOINT *##e# 
O70 1510° CLL RO 
O70E 1211 ET : ; SET STATUS 
aro | 13 108: B18’ #cctav_TBIT>!<1aVv -ATBRK>S, (R10) ; SET S 
GA 18 88 OE Ste Sos, SUITOR ak se ed 
1 1313 Bae” pec sv. TBIT Savest-B(R115 ,PaSt .* 
sag Se : fae BBS, #PSLSV_TBI SAVE BPT NUMBE 
a oe a ee 
BS ; OU 
9 71C 121 OUTDIGIT : MSG ADDRESS 
ECs : 12 | i MOVAB ts OUTPUT ASCIIZ 
54 C5 AE 3 726 1 ROVL SAVPCOB(RT) RS  QUIPUT PC orp 
et ce 2 el Scone 
VL ’ : 
51 F9nB CFS tS OF 1996 Beat 408 ~B(R11) SET AS CURRENT DOT 
68 51 00 0738 133% BSB ta PROMPT Ger CORMAND STRING ADDRESS 
FBB B8 rae ! 40$: BOUL BRKCOMCR5),R1 : See NE GET AN COMMAND 
51 FOBA CF4S 00 O74 BEQL  GETCMD ; SET TO SCAN STORED 
15 0747 | MOVL —-RT,R9 : GET COMMANDS 
so S00 8740 138 GETCMD: ; 
74 § G  (AP),DCOM F PERFORR DEBUG COMMANDS 
74C 1234 CALL iP ie 
FAGO CF =6C OFA Pa} Jgq2 PROCEED: Foe fear TaN COR TRACE FLAG 
96a 08 65 OF i ? BESS rite _{BIT, SAVPSL-B(RI15, 408 ; SETT 
ror Be see OB osu PROCES ae 
73 1501 ine ggesavec-S6R11) NOs NOTHING SPECIAL 
75C 1242 BNEQ 


kt a a = 


-S pI AX/VMS Macro V04-0 Pa 37 xD 
"rg 138 85: 86 i$ cy SRCIXDELTA.MAR; 0 | vO 
#PSLSV_CURMOD,MPSLSS_CURMOD , SAVPSL=B(R11) ,RO NEW MODE 
#CONTERTSZ,R ; SCALE BY PER R MObE ccontéxts AREA SIZE 
STATUS-B(RO) ,R10 : POINT TO NEW 
#V_TBITOK, (R10) ,50$ ; SET TBIT EXP cee 
NDF ,SW_PROCESS ; ans tories 
: FALSE IF “PROCESS VERSION 
#1,R0 ; RETURN TRUE 


wl 
XDELTBIT:: 
XDELTBIT: 


BLASS 


SNS NINO OO 
i hd 


VIWNIOM OOM MOOD OOM uirvrommn 


bt 


MMM — RORORORORoRoRoPonorfofnororory» 


oon 


pt a a a a a ey a ma 
a 


QQQVQQVqo_Vvo_x wVwo____ww_ww_wnanaNNN 


TERESI SARE RARER 


-SBTTL TBIT EXCEPTION HANDLER 
HANDLER FOR TBIT EXCEPTION 


«ALIGN LONG LONGWORD ALIGNED 


F NDF ,SW_PROCESS : 
+ XDELTA TBIT HANDLER 
IFF s 
.ENDC ; 
SBW «SAVE + SAVE AND DISABLE 
BBSC #V_TBITOK,(R10),XDELDBG : BR IF TBIT EXPECTED 
BSBW SRR t RESTORE REGISTERS 
wIF NDF ,SW_PROCESS ; 
MOVZBL 6(SP),=(SP) + GET IPL FOR ENABLE 
ENBINT * ENABLE 
MTPR  _(SP)+,S*#PR$_IPL 
JMP EXESTBIT : OTHERWISE LET EXEC HANDLE 
IFF + FALSE IF PROCESS VERSION 
CLRL = RO. + RESIGNAL 
RET + UNEXPECTED TBIT EXCEPTION 
: COMMON WITH DEBUG EXCEPTION 
BICL  #<l@PSL$V_TBIT>,SAVPSL-B(R11) ; CLEAR TBIT IN PSL 
BSBB : REPLACE OPCODES 
BBSC #V_ATBRK,(R10),PROCEED : CHECK FOR PROCEED 


OUTPUT STEP MESSAGE 


MOVL  SAVPC-B(R11), CURDOT-B(R11) : SET ADDRESS 

IFNORD #4,@CURDOT-B(R11) ,GETCMD : SKIP DISPLAY IF NOT READABLE 
PROBER #0,44,@CURDOT-B(R11) 
BEQL GETCMD 

BSBW  LOCPROMPT ; PROMPT WITH ADDRESS/CONTENT 

BRB GETCMD + GO GET COMMANDS 


IVE DEBUGGER 1 mi tts 06 05:18 3b. Macro rr | Page 39 
RESTORE OPCODES FOR BREAKPOINTS 5=SEP=1984 02:07:42 [CMP.SRCIXDELTA.MAR;1 (1) 
2 91 .SBTTL UNBRK = RESTORE OPCODES FOR BREAKPOINTS 
09 $8 ; UNBRK 
795 1295 UNBRK ; 
51 08 vO 0795 1 36 MOVL #NBRK,R1 + INIT LOOP 
50 F918 CF41 DO 0798 1297 10%: MOVL RKADRLR1],RO : GET BREAKPOINT ADDRESS 
06 13 O79E 1 98 BEQL : SKIP IF NOT ENABLED 
7A0 129 mt DF ,SW_PROCESS ; 
07A0 1300 PUSHR #*M<RO,R1,R2,R3,R4,R5> +: SAVE REGS FOR PROTECTION CHANGE 
7A0 1301 MOVL R ' : FORM INADR RANGE FOR SET PROTECTION 
7A0 1 ¢ MOVL ; 
7A0 1 BSBW OP tGRT + SET PAGE WRITABLE 
vA 4 MOV (SP),RO + RESTORE RO,R1 
60 F936 CF41 90 7A 8 hove BRKOPCRII (RO) t RESTORE OPCODE 
O7A6 1 14 BSBW RR + RESTORE PROTECTION 
O7A6 1309 POPR #°M<RO,R1,R2,R3,R4,R5> : RESTORE REGISTERS 
EF 51 5 O7A6 1311 208 SOBGTR R1,10$ + DO THEM ALL 
05 O7A9 131g RSB > AND RETURN 


—9o-00-""079 


WWW 


90 


om 
wu 


GER 
K POINT INSTRUCTIONS ~SEP=1984 


C 
K 
0 
0 
Q 
Q 
Q 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 


78 

75 
704 
7C6 
76 
7C6 
7C6 
7C6 
7C6 
7C6 
7C6 
7C6 
7¢9 
7¢9 
7¢9 
7¢9 
7¢9 
7¢C 
70D 


—_ > ts 2 = 2 a a 2 2 2 2 ss —) 2 2 2 


WWAWI NAIA 


FH FWA AIWINNINIIRPOPOPNPIPNPIPONN 2 SS 


NRO OONAUES WN OC OONAUE WN OOONOM 


NSERC BRSERELS AP/URE, aera tO 


-SBTTL SETBRK = SET BREAK POINT INSTRUCTIONS 
SETBRK 


: MOVL  #NBRK,R1 : INIT LOOP 
MOVL RKADRLR1],RO + GET ADDRESS 

BEQL $ : SKIP IF NOT ENABLED 

MOVE (RO) ,BRKOPCR1] ; SAVE OPCODE 

BITB #<<1aV_TBIT>!<1av_ATBRK>>, (R10) ; CHECK FOR TRACE 

BEQL «158 :°NO TRACE, SET ANY 

CMPL  RO,SAVPC-B(R11) t CHECK FOR AT err 

BEQL 208 : YES, DONT SET IT 

IF DF ,SW_ PROCESS ; 

PUSHR #*M<RO,R1,R2,R3,R4,R5> : SAVE REGISTERS FOR PROTECT ION CHANGE 
MOVL RO, R4 : ser START ADDRESS OF RANGE 

MOVL  RO.RS : AND END ADDRESS 

BSBW © SETWRT [SET PAGE WRITABLE 

OVI (SP) ,RO : RESTORE BPT ADDRESS 

MOVB #3, (RO) t SET BREAKPOINT OPCODE 

IF DF .SW_ PROCESS ; 

BSBW ssa : RESTORE ORIGINAL PROTECTION VALUE 
POPR #°M<RO,R1,R2,R3,R4,R5> =: AND REGISTERS 

SOBGTR R1,10$ + DO THEM ALL 

RSB : AND RETURN 


¢c 9 
GETBPTX = GET INDEX FOR BREAKPOINT ——-"S-SEP=1984 9:00:48 EMP. SRCINDELTALMAR; tad 


~SBTTL GETBPTX = GET INDEX FOR BREAKPOINT 


7CD 1344 
70D 1345; 
70D 1 46 : GETBPTX 
70D 134 
70D 1348 & 
5308 70D 1249 #NBRK,R3 : INIT LOOP 
FRE] CF43 54 AB 0700 1350 1 SAVPC-B(R11),BRKADRLR3] : IS THIS A BPT? 
0707 1351 BEQL : YES 
F4 53 0709 1 38 SOBGTR R3,10$ : NO, CONTINUE 
O7DC 1353 2 RSB : RETURN 


Fl 


SPR maar 


XDELTA - EXECUTIVE DEBUGGER 16=SEP=1984 02:02:16 VAX/VMS Macro v04-0 Page 42 
yO%+000 QUOTE = INPUT CHARACTER STRING ety 7 83:98:18 EMP. SRCIXDEL TA MAR: sv MD) 
7pp 5 .SBTTL QUOTE = INPUT CHARACTER STRING 
70D 1 7 : QUOTE = START CHARACTER STRING INPUT 

7DD 1 g : 
70D 1 QuorTe: : 
55 6B 0 7DD 1360 MOVL §CURDOT-B(R11),R5 + POINT TO STRING BUFFER 
FeDe 7E0 1361 5$ BSBW  GETCHAR : GET CHARACTER 
58 1 O7E3 1 6¢ CMPB  s- #QUOT, RB : CHECK FOR QUOTE 
5 13 7E6 136 BEQL : YES, END OF STRING 
85 : 90 O7E8 1364 MOVE RB, (RS) + : INSERT IN BUFFER 
F311 «+O7EB «(1365 BRB : AND CONTINU 
68 55 D9 7ED 1 66 10$: MOVL  R5,CURDOT-B(R11) : SAVE NEW DOT 
05 O7FO 136 RSB + RETURN 


sss 


7 


“SEP- :02:1 AX/VMS_ Macro V04-0 Page 43 
yose000 war "BEE ei 13be 85:09:45 Eme eres eper ea atal i) 
7 69 .SBTTL DEPOSIT 
Fl if ; DEPOSIT DATA 
7F1 1378 beposit: ; 
1D 6A «1F~~ EO Fl rs BBS ay PREG, Baatsa* 0$ ; BR IF PROCESSOR REGISTER 
- : GET CURRENT DOT 
Ai i 8 Pere CURDOT “ACR Saas ; oer ck FOR ARBITRARY PROCESS DEPOSIT 
775 1 78 BNEG 508 ; BR IF YES 
i i 43 at CURTYPE-B(R11),TYPE=B,<- cute! SWITCH ON TYPE 
Ms i ios. “ : WORD 
775 1 § te + LONG 
> - 
02' 00 FE AB. 8F ore _— CASEB CURTYPE-B(R11),#0,$°#<<30020$-30019$>/2>-1 
0006' rh werent. «SIGNED_WORD 10$-30019$ 
000C* O7FC SIGNED “WORD 0$-30019$ 
0013" O7Fe ili - SIGNED WORD 0$-30019$ 
080 
0800 1385 IF NDF ,SW PROCESS wiesk ‘sree oven 
00 BB «CEO AB 90 a800 86 10S: hove F1-B(RT1) ,@CURDOT I Reruen 
00 BB EO AB 80 0806 88 20S: nov F1-B(R11) ,@CURDOT-B i STORE | 
00 BB £0 AB v0 080¢ 30 308: ROVE F1-B(RI1) @CURDOT-B¢RI1); STORE LONG 
68 £0 AB BA 0812 1 34 40$:  MTPR  £1-B(R11),CURDOT-B(R11) : SET VALUE IN PROCESSOR REGISTER 
™ bat 1 3 wit : FALSE IF PROCESS VERSION 
a ia am es | OTART AND END ADDRESSES EQUAL 
§ 5 i 3 BSB 3s SE TWRT : SET WRITABLE, OLD PROT TO R2 
0817 1398 MOVB =F 1-B(R11), (R4) STORE BYTE oy 
0817 1399 BSBW = REPROT ; RESTO 
By ese 3 ee 
: : WORD DEPOSIT, FORM END 
8 4 1208 eae appt Sr OR ssi : SET WRITABLE 
§ 17 1404 MOVW F1-B(R11),(R4) : STORE WORD saris 
0817 1405 BSBW = REPROT ; RESTORE PRO 
0 17 1406 RSB : 
He 1408 30$: ADDL3 #3,R4,R5 : LONGWORD DEPOSIT, FORM END ADDRESS 
1") W s 
M4 1210 BOVE F1-B(R11), (R4) STORE LO NG WORD 
17 1611 BSBU —s- REPROT ; RES 
1p 1218 — , 
: : PROCESSOR REGISTER 
3 1218 _ SCMKRNL_S B*DEPPREG, (AP) : DEPOSIT IN PROCESSOR REGISTER 
3 1318 aa, : DEPOSIT IN ARBITRARY PROCESS 
1g Ait 508: “ oo ; SWITCH ON TYPE 
17 1618 CASE CURTYPE B(R11), TYPE=B, a 
17 141 
} 
| 


ak 
vdcqeaeen CRECHMNE HBS CARED On Pe 


4 ; WORD 

ase 80$> ; LONGWORD 
608 ae ities ; SET ADDRESS OF BYTE ROUTINE 
70$ 9 a — ; SET ADDRESS OF WORD ROUTINE 
gos PUSHAB W*DPLONG ; set ADDRESS OF Loe ROUT INE 
0$ PUSHL PID-B(R11) ; SET PID OF TARGET 

PUSHL CURDOT-B(R11) ; ADDRESS FOR STORE 

PUSHL F1=-B(R11) ; VALUE TO ST 

PUSHL #4 ; ARGUMENT COUNT 

MOVL SP,RO : POINTER TO ARGUMENT LIST 

TSTL MF YFLG-B(R11) : CHECK FOR STORE ENABLED 

BEQL 100 ; 8 

SCMKRNL_S W*QGET, (RO) ; CALL TO QUEUE REQUEST 
100$: ADDL #20,SP ; CLEAN STACK 

RS : AND RETURN 


DEPPREG:.WORD 0 
MOVAB W*PREXC, ( 


DEPOSIT INTO PROCESSOR REGISTER 
MTPR FIsBcatt), CURDOT=B(R11) 


SET EXCEPTION 
PLACE FIELD VALUE IN REG 


MOVL RETURN SUCESS 
RET 
PREXC: .WORD 0 ; PROCESSOR REGISTER EXCEPTION HANDLER 
ADDL3 #4,8(AP),R1 + POINT TO EXCEPTION FP 
OVL (R1), 12¢FP) ; SET AS RETURN FP 
MOVAB 8*10$,16(FP) SET RETURN ADDRESS 
10$:  MOVZWL #1,RO SET NORMAL STATUS 
RET AND RETURN 


NNNNININININNINININNNNNNNNVNVNVNNNNNNS 
Fu te tt a dt a a td a tn a a a tt 
NN ee eee 


VV ES BS BB BB EE ENNIO RIPIPINININIPUINIY 


MOOD NOAUVE WR 9 OONO UE WIN O OO NOUE UW" O 
bs] 


- EXECUTIVE DEBUGGER Ig- SEP=1984 4 03: 03: Ig VAX/ KS Macro V04-00 Page 45 hel 
EXECUTE = PERFORM COMMAND STRING -SEP-1984 :42 (CMP.SRCIXDELTA.MAR; 1 (1) 
7 14 ‘ .SBTTL EXECUTE = PERFORM COMMAND STRING 
7 14 : ; EXECUTE 
17 1457 : 
17 14 : EXECUTE: ; 
09 6A 08 €1 0817 145 BBC #V_F1,(R10) ,108 + EXIT IF NO ADDRESS 
59 «£0 AB 09 1B 1460 MOVL  F1=B(R11),R9 + SET CHAR STRING 
9 1 1F 1461 BNEQ 10% : NOT NULL 
F981 31 0821 146¢ BRW SUPERST : SUPER RESET 
05 08 4 1463 10$ RSB + RETURN 


Dh 


PS *BRBLESSOR REGISTER PREFIX "S2SEb=1382 88:85:18 ERE/SRESRBEL PAL Ran: 


4 .SBTTL P = PROCESSOR REGISTER PREFIX 

468 SET PROCESSOR REGISTER MODE 

470 PREG: : PROCESSOR REGISTER MODE 
00 6A OF Fe 4 wns BBSS § #V_PRMODE,(R10),10$ ; ser PROCESSOR REG FLAG 


4 RSB 


- EXECUTIVE DEBUGGER 16-SEP-1984 02:02:16 VAX/VMS M v04-0 P 47 | 
PROCESS DEBUCEER TAI TIALIZATION Breen obe B5:po ius Fan ees Macro voeeC wr 
.SBTTL PROCESS DEBUGGER INITIALIZATION 


If DF ,SW_ PROCESS 
SALUTE: .ASCIZ OERSEC FS TBELTA Version X2.1/<CR><LF> ; 


| 
| 
| 
} 
| 
START ADDRESS OF IMAGE ENTRY | 
| 


TEST: 
XDTSSTART:: 3 GLOBAL START ADDRESS FOR CLI DEBUG 


.WORD 0 
DELTA_START: : START ADDRESS FOR DEBUGGER ENTRY 
SWAKE_S 3 L WAKE A 
SHIBER_S 3 HIBERNATE 1O GET SYNCHRONIZED 
OVAB ~ TERMASK, TERMASKD+4 + RELOCATE TERMINATOR MASK DESCR 
MOVAB TTSTR,TENAMD+4 ; RELOCATE DESCRIPTOR 
MOVAB EXIHANDLE,EXIHADR : 
MOVAB EXITCODE,EXCODA + RELOCATE EXIT HANDLER ARGS 
CALLG (AP) ,B*INITCALL : GENERATE CALL FRAME 
NOBRK: MOVL 4(AP),AP : GET EXCEP 
BRW EXCEPT+2 + AND GOTO 
INITCALL: 
.WORD 0 : ENTRY MASK 
VAB  W*CATCHALL, (FP) : SET CATCHALL EXCEPTION HANDLER 
SDOCLEXH_S EXITBLK + DECLARE USER MODE EXIT HANDLER 
SCMKRNL~S W°SETEXC, (AP) _ ; SET EXCEPTION VECTORS 
SSETEXV—S ADDRES=U EXCEPT, - : 
=#3,7 ; 
VECTOR=#0 ; SET PRIMARY FOR USER 
SSETEXV_S ADDRES=W*CATCHALL,- SET LAST CHANCE HANDLER 
ACMODE=83, - : FOR USER MOD 
VECTOR=#2 : SPECIFY LAST CHANCE HANDLER 
SASSIGN_S TTINAMD,TTCHAN : ASSIGN DEVIC 
BLBS ~RO,10$ : CONTINUE IF SUCCESS 
RET ; ELSE EXIT WITH ERROR CODE IN RO 
10$:  MOVAB SALUTE R4 ; SET ADDRESS OF SALUTATION 
BSBY OU OUTPUT I 


TZSTRING T 
BBS #CLISV_DBGEXCP,24 (AP) ANOBRK re BR IF LATER INVOCATION 


SOOOOCOCOCOOSOOOOCOOOCOOO OOO COO SOOO OO OOOO OOOOOOO OOOO OOOOOOOOOOOoOO UO 
9.09090909 00 G9 G9 09 09 Gd C9 G9 00 Cd Od Oo On OS 02 Cd Od OD OD CD 09 OD CD CD 0D CD CD CD CD CD CD CD CD CO CD CO CD CD CDODODODCDCDODODOCDCDCDCDCSCD «6 
i a a a a ee 


AR IPOPINONINININININDG 9 9 9 MP ODODODVDOOOO OOO OOOO OO OW 00909 0909090908 INI 
SONA NE WIN @§ 9 OD NA NE WIN O OD NA UNE WIN 3 SO OOD NA UE WIN 9 OD NAME AW OOONOUE 


; C 
CALLG (AP) ,B*20$ : CREATE TOP CALL FRAME 
208: .WORD 0 : NULL ENTRY MASK 
ADDL  #4,4(AP) : ADVANCE STARTING ADDRESS POINTER 
MOVPSL -(§e : SAVE PSL 
ADDL3 #2,a@4(AP),-(SP) : FETCH CURRENT STARTING ADDRESS 
MOVZUL ass. DEBUG, -(SP) : SET EXCEPTION CODE 
PUSHL # : SIGNAL ARG 
VL SP, : SAVE POINT 
va RO, =(SP) + SAVE PHONY RO,R1 
PUSHL @# : DEPTH 
PUSHL FP : FP 
SHL #4 + ARG COUNT 
PUSHL SP : POINTER TO MECH 
PUSHL R : POINTER TO SIGNAL 
CALLS #2,W*EXCEPT t SIGNAL PHONY EXCEPTION 
ADDL #12,SP : CLEAN BACK TO ROR 
MOVG = (SPS+,RO + RESTORE RO,R1 


TION ARGUMENT LIST 
EXCEPTION HANDLER 


23 
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> 

we 

PJ] 

om 
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on 
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DEBUGGER 16-SEP=1 71 AX/VMS_ Macro V04-0 Page 48 
UGGER INITIALIZATION Breen 8Be 05:09:45 Lae Spe anseL TA MARS ve wD 
1 ADDL 4#8,SP ; CLEAN BACK TO PC,PSL 
REI + RETURN TO TARGET PROGRAM 
1534 
1535 SETEXC: .wORD 0 ; ENTRY MASK 
1 : SSETEXV_S ADDRES=B*£¥<EPT, = : ; 

1 PRVHND=KCOND, = 

1 : ACMODE=# SET KERNEL 

13 SSETEXV_S A earcul 

1540 “#0. 3 SET KERNEL MODE LAST CHANCE HANDLER 

1363 vECTORe# : SPECIFY LAST CHANCE VECTOR 

1 rh SSETEXV_S ADDRES=B*EXCEPT,- ; 

1344 PRVHND=ECOND,- ; 

1545 ACMODE=41 SET EXEC MODE EXCEPTION HANDLER 

1 46 SSETEXV_S ADDRES=UCATCHALL = 

154 ACMODE=41,- EXEC MODE LAST CHANCE HANDLER 

1348 VECTOR=#2- tect LAST CHANCE VECTOR 

1550 SSETEXV_S ADDRES=B*EXCEPT,- ; 

1551 PRVHND=SCOND,- ; 

1358 ACMODE=# SET SUPERVISOR MODE EXCEPTION HANDLER 

155 SSETEXV_S ADDRES=W=CATCHALL = 

1554 ACM “83. 3 SET SUPERVISOR LAST CHANCE HANDLER 
= Py 

1555 VECTOR # SPECIFY LAST CHANCE VECTOR 

1336 RET ; 

1558 EXCEPT: .wORD 0 i EXCEPTION HANDLER ENTRY MASK 

1359 $SETEXV_S ADDRES=B°EXCEPT .~ 

1561 VECTOR=#0 + RE-ESTABLISH USER PRIMARY VECTOR 

136¢ ADDL3 #4,4(AP),RO ; GET POINTER TO SIGN 

156 MOVPSL R1 > GET CURRENT PSL 

1564 EXTZV APs sy CURMOD WPSLSS_CURMOD,R1, RI ; 

1565 BBSS 1, DBGACTIVE ,40$ : BR If ALREADY ACTIVE 

1366 CMPL a3. Sait. IVES) : IS IT TBIT? 

156 BNEQ ; NO 

1568 5$: BRW DELT BIT : Yes, A TBIT 

1369 10$: CMPL ase BREAK, (RO) : IS {1 BREAKPOINT? 

1570 BNEQ 0$ + NO 

1371 15$: BRW XDELBPT : YES, A BREAKPOINT 

1 re 20$: : SOME OTHER EXCEPTION 

157 CMPL  #SS$_UNWINDING, (RO) : 1S IT UNWIN 

1574 BEQL : YES 

1575 CMPL § #SS$_COMPAT,(RO)+ : IS IT COMPATIBILITY MODE EXCEPT? 

1 id: BNEG 308 ; NO 

157 CMPL ss #1, (RO) : IS IT COMPATIBILITY BPT? 

1 28 BEQL : YES 

157 CMPL = #7, (RO) : IS IT COMPATIBILITY TBIT? 

1580 BEQL > YES 

1581 30S CMPL #SS$_DEBUG,~(RO) : IS 1T DEBUG EXCEPTION? 

1 ; BNEG 408 : NO, 

1 BSBW 0s SAVE > SAVE EVERYTHING 

1584 BRW XDELDBG : AND TREAT AS FUNNY BPT 

1585 40S: > UNEXPECTED EXCEPTION 

1 : BBCC  R1,DBGACTIVE,50$ + CLEAR DEBUG ACTIVE 

1587 50$ CLRL = RO : RETURN FALSE FOR RESIGNAL 


—d 


Kk 9 
- EXECUTIVE DEBUGGER 16-SEP-1984 :02:1 AX/VMS Macro V04-0 Page 49 
PROCESS EBUGGER INITIALIZATION oe Set 95:96:18 ry SRCIXDELTA.MAR; ” - 
RET : 
60$:  MOVL 4#1,RO t IGNORE AND RESIGNAL 
RE AGE , 
; [SBTTL HANDLER FOR DEBUG EXCEPTIONS 
9 .wORD 0 : 
9 ADDL3 #4, 8(AP),R1 : POINT TO EXCEPTION FP 
9 MOVL FP-_R : INIT LINK FOR CALL FRAMES 
; 10$ CPL gt >, (R1) : 1s THIS THE LAST ONE? 
MOVAB 6° S0s,16 16(RO) t SET FOR RETURN 
MOVL 3(ROS, RO : 
BRB 10$ t CONTINUE 
208: MOVAB XDELACV, 16(RO) : SET RETURN FOR ERROR 
5 CATCHALL: : CATCHALL gf cert 10N HANDLER 
0 “WORD 0 : ENT 
MOVPSL R1 teu URMOD 
0 EXTZV #PSLS$V_CURMOD,#PSLSS_ cunhoD« R1,R1 OLATE CURRENT MODE 
BBCS R1,DBGACTIVE,10$ ; MOST Nor BE pebuecen EXCEPTION 
CURL RO’ : RESIGNA 
10$:  BSBW SAVE : SAVE EVERYTHING 
ADDL3 #4,4(AP),RO : POINT TO EXCEPTION CODE 
MOVL (RO),R3 IT 
SBU sé OUTPUT CR/ 
BSBW OUTLONG OUTPUT EXCEPTION CODE 
MOVAB B*EXCMSG,R4 OUTPUT MESSAGE 


BSBW QUTZSTRING 
BRW XDELDBG 
EXCMSG: .ASCIZ / EXCEPTION / 


TEXT FOR EXCEPTION 
AND DISPLAY INSTRUCTION 
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EXIHANDLE : : EXIT HANDLER 
<WORD 0 : ENTRY MASK 
B1T8 #15,DBGACTIVE 3 TEST FOR. DEBUG ACTIVE IN ANY MODE 
SCMKRNL_S CLREXV, (AP) : RESET EXCEPTION VECTORS 
MOVL ~a4(AP),RO : RESTORE 
RET + RETURN 
10S: : PROGRAM EXIT 
MOVPSL -=(SP) : BUILD EXCEPTION FRAME 
PUSHL 16(FP) : 
PUSHL  @4(AP) : EXIT CODE FOR EXCEPTION CODE 
PUSHL #3 : ARG COUNT 
PUSHR #M<RO,R1> : 
MOVQ =e AP, = (SP) : 
PUSHL #4 + MECHANISM COUNT 
US 5 : POINTER TO ME CHANIS 

PUSHAL 24(SP) : POINTER TO SIGNA 

4 PUSHL #2 ; 

4 MOVL SP,AP : SET AP FOR EXCEPTION 

4 BSBW 40s«SAWE > SAVE EVERYTHING 

4 MOVAB B*EXIMSG,R4 > DISPLAY EXIT MESSAGE 

4 BSBW OUTZSTRING + OUTPUT TEXT 


XDELTA - EXECUTIVE DEBUGGER 16-SEP-1984 :16 VAX/VMS Macro v04=00 Page 50 
v04-000 PROCESS DEBUGGER INITIALIZATION g: =SEP=1984 85: 86: i$ } tne. SRCIXDELTA.MAR; 1 om <a 
4 MOVL SAVAP-B(RI1) .RS : GET POINTER TO AXCEBTION ARGLIST 
RL ashib | Bieta fom mois 
PB cme BE gut mae 
; XTZV #PSL SV CURMOD #PSLSS_ cuRMOD R1,R1 ; GET CURRENT MODE 
BBSS 0BG GXCT £,20$ : SET DELTA ACTIVE FOR MODE 
20$: BRW iD bere ; 
EXIMSG: .ASCIZ <CR><LF>/ EXIT / ; 
CLREXV: : CLR EXCEPTION VECTORS 
.wORD 0 : ENTRY MASK 
SSETEXV_S ADDRES=@K COND, = : 
= P 
SSETEXV_S ADDRES=a COND,- : 
SSETEXV_S ADDRES=@SCOND ,- ; 
ACMODE=42 $ 


RET 


. PAGE 

-SBTTL SETWRT = SET PAGES WRITABLE 
SETWRT: 

nove =-(SP),R2 

SCMKRNL_S B“SETPRTK, (R2) 


CALLG (R2),B*SETPRTK 
POPR #*M<R2> 


ADDRESS FOR RETURN OF PROT 
CONTINUE IF NO ERROR 


10$: RESTORE PROTECTION VALUE 
RETURN 


SETPRTK: .WORD 
MO 
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0 3 
VQ R5,-(SP) : INADR, START AND END ADDRESSES 
VL SP.R1 : ADDRESS OF INADR 
SSETPRT_S INADR=(R1),- —: 
PROTSAPRISC_ UW.-: WRITABLE BY ALL 
PRVPRT= stab) t ADDRESS AT WHICH TO RETURN PROT 
MOVE #1,R t ALWAYS SUCCESS 
REPROT: ; RESTORE PROTECTION 
ROAGE 
"SBTTL FETCHP - FETCH DATA FROM ANOTHER PROCESS 
FETCHP: CASE  CURTYPE-B(R11), TYPE=B,<- ; 
10s. : 0 => BYTE 
: $‘- : 1 => WORD 
0$> : => LONG 
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RSB > UNKNOWN 
108: PUSHAB w*FPBYTE : SET FOR BYTE FETCH 
208: PUSHAB WE PUORD : SET FOR WORD FETCH 
99 308: PUSHAB WF PLONG : SET FOR LONGWORD FETCH 
1 40$:  PUSHL PID-B(R11) : P.” OF TARGET PROCESS 
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a9 
GGER 16-SEP-1984 AX/VMS_ Macro v04-0 Page 51 
INITIALIZATION g-8é P-1 1382 85: 86: 18 Yn SRCIXDELTA.MAR; 9 (1) 
PUSHAB QUAN-B(R11) 3 ser ADDRESS TO RETURN VALUE 
PUSHL CURDOT-B(R11) 3; AND ADDRESS OF VALUE 
PUSHE a4 3 ARGUMEN NT COUNT 
MOVL SP,RO 3 SAVE POINTER TO ang LIST 
SCMKRNL_S W*QGET, (RO) 3 Q AST FOR DATA FETCH 
BLBC RO, ; BR IF FAILED 
SHIBER_S 3; WAIT Jt DATA TO RETURN 
50$: ADOL #20,SP 3; CLEAN K 
RSB 3 AND RETURN DATA 


- PAGE 
-SBTTL QGET - QUEUE AST TO GET DATA FROM ANOTHER PROCESS 


; INPUTS: 04(AP) = LOCATION OF DATA 

: (AP) = RETURN LOCATION 

; 12(AP) = PID OF TARGET PROCESS 

; 16(AP) = CODE SEGMENT POINTER 
FP_ORIGPID=ACBSL_AST 
FP"ADD DR=ACBS ASTPRM 
FP"VALU BSC. ASTPRM 
FP oh EEN KAST #4 

QGET: .wWO Roe : ENTRY MASK 
MOVZWL #SS$_NON A. Ph R : ASSUME BAD PIX 
CHP 12(AP) OMe Scnbee _MAXPIX CHECK Pix FOR LEGAL PROCESS 
MOVZWL @16(A : GET SIZE OF CODE SEGMENT 
MOVAB RPSC TLENGTHCR, R1 + ADD SIZE OF PACKET DATA 
JSB av XE SALLOCBUF + ALLOCATE BUFFER TO CONTAIN CODE 
BLBC ~—_ RO, 10 + BRANCH IF NONE 
MOVL  R2,R5 7 SAVE ADDRESS OF PACKET 
MOVL PCBS _PID(R4) FP ORIGPID(R5) SET PID FOR RETURN 
MOVB #*X807ACB$B_RMODTRS) : SET FOR SPECIAL KERNEL AST 
MOVAB ACBSL_KAST+8(R5) ,ACBSL_KAST(RS) ; SET ADDRESS FOR MAST 
MOVL  4(AP)7FP_ADDRCRSS 3 SET ADDRESS FOR FETCH 
MOVL 8(AP) {FPTRETLOC(RS) + AND ADDRESS OF RETURN LOCATION 
MOVL  16(APS,RO : GET ADDRESS OF CODE SEGMENT 
MOVL V2CAP) . ACBSL _PLD(RS) : SET TARGET PID 
PUSHR #*M<RO.R1,R2-R3,R4,R5>_ ; SAVE REGS FOR 
MOVC3 (RO)+, (ROS ,ACBSL_KAST+8(R5); copy CODE SE 
POPR #*M<RO,R1,R2,R3,R4,R5> ; RESTORE REGISTERS 
MOVZBL #PRIS$_f1 COM. Re ; SET PRIORITY INCREMENT CLASS 
JSB Se SCHSCA AST QUEUE AST FOR TARGET 

10$: RET + RETURN TO ORIGINAL MODE 
.SBTTL FPBYTE = FETCH BYTE FROM PROCESS 

FPBYTE: .WORD 90$-.-2 ; SIZE OF CODE SEGMENT 


@FP_ADDR(RS) ,10$ onan 4 NOT READABLE 


iFNORD #1 
MOVE. aFP_ADDR(RS) FP VALUE(RSS ; GET VALU 
10$:  MOVL  FP_ORIGPID(RS) ,ACBSL_PI 1bcRd °: set PID FOR RETURN AST 
MOVE #*%80,ACBS$B_RMOD(R5) : SET’ FOR KAS IN 
VAB B*20$,ACBSL-KAST(RS) =; SET NEW AST A DOR SS 
MOVZBL #PRI$. TICOM>R2 ; SET PRIORITY INCREMENT CLASS 
P #SCHSQAST ; QUEUE RETURN 
20$ IFNOWRT #1,a@FP RETLOC(RS) 30$ IF NOT WRITABLE THEN SKIP IT 
OVB FP VALOE(R5) ,aFP_RET Locks) RETURN 
308 MOVL acpey el PID(R55,R1 ; GET pib FOR W AK 
SETIPL #IPL$~SYNCH : RAISE TO SYNCH 


C 
MOVC 
GMENT TO BUFFER 
| 
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16-SEP-1984 02:02:1 AX/VMS_Macro V04 00 Page 
yOrc000 PROCESS DEDUCE ER SHI TIALIZATION ete 1 95:96:18 ERP. SROIKDEL TA MARS! (1) 
: A 1759 JSB ase SCHSWAKE ; WAKE PROCESS 
A 1589 move 4 —_— : SET ADDRESS FOR RELEASE 
A 1766 AAP av XESDEANONPAGED i EREE BLOCK AND EXIT 
0 A 1582 she 
A 1765 PAGE é peacta 
EN 1588 DPBYTE: SBRDE 1 he tae af SIZE OF CODE SEGMENT 
8 A 158 20$:  iFNOWRT #1,@FP_RETLOC(RS),30$ : IF NOT WRITABLE THEN SKIP IT 
88 A 1788 "  MOVB FB'VALOE(RS) ,@FP_AETLOC CAS) Agree URN VALUE 
A 1770 30$: MOVL R ; SS FOR REL 
8B A 1771 JMP a#é XESDEANONPAGED ; FREE BLOCK ND EXIT 
082A 1278 90S: : 
of A 137 PAGE 
‘ - ‘ $$ 
082A 1775 , + SBITL FPWORD = FETCH WORD FROM PROCE A nent diamine 
SRSA 1558 hear iFNORD #2,@FP_ADDR(RS),10$ * BRANCH IF NOT READABLE 
OBSA 1778 MOVW a@FP_ADDR(RS), FP VALUE(RSS ; GET VALU on nel 
SRSA 1779 10$:  MOVL = FP GRIGPID (RS) -ACBSL_PID(RS) ; SET PID FOR RETU N 
089A 1781 ROVAB B*ZOS:ACBSLCKAST(RS) —; SET FOR NEW AST ADDRESS 
OBSA 1783 MOVZBL #PRI$. TICOMTR2 : SET PRIORITY INCREMENT CLASS 
SRSA 1383 JMP #SCHSQAST + QUEUE RETURN AS vin 
sens Sts Tee FETC Eiht Os 
SRSA 1282 Rove . : GET PID FOR WA 
OBSA 1589 “ee SEY TPL ACBSL PID (RSS RI F RAISE TO SYNCH 
#SCHSWAKE ; 
aBsh 1789 SET IPL HIPLS_ASTOEL : LTE ODRESS FOR RELEASE 
: CK AND EX 
OBSA 1593 90S: = afEKESDEANONPAGED : END OF CODE SEGMENT 
i 
OBA 1795 + SBITL DPWORD - DEPOSIT WORD TO PROCESS, onc ae 
OBSA 1338 o* rp iFNOWRT #2,@FP_RETLOC(RS),30$ : IF NOT WRITABLE THEN SKIP IT 
SRSA 1798 "  mOVvW FB_VALOE(RS) ,@FP_RETLOC(RS) ADbRe eee ALE 
082A 1799 30$:  MOVL ; DRESS FOR REL 
08 A 1800 en, JMP ave XESDEANONPAGED ; FREE B OCK AND EXIT 
5s ; its care FPLONG - FETCH LONG FROM PROCESS 
OBSA 80S G: SBRD 90$-.- : SIZE OF CODE SEGMENT 
SRSA 1808 — IFNORD #4,aFP_ADDR(RS),10$ : BRANCH IF NOT READABLE 
OBA 1807 MOVL FP _ADDR(RS) ,FP-VALUE(RSS ; GET VALUE feet 0 | 
$8 A 1808 10$: MOVL FP RIGPID(R5) -ACBSL_PID(RS) ; SET PID FOR RE 
88 A 1810 HOVAB 4 , S ACBSECRAST CRS) : SET NEW KAST ADDRESS | 
OBSA 181 Cape : QUEUE RETURN AST 
08 A 1318 208: TFNOURT fe ar ne! OC(R5) ,308. i IF NOT WRITABLE THEN SKIP IT | 
MOVL  FP-VAL ci 
3 A 1818 30$ MOVL  ACBSL_PID(R5S,R1 ; GET PID FOR WAKE 
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= EXECUTIVE DEBUGGE 
v04=000 PROCESS DEBUGGER INITIALIZATION =SEP=1984 MP.SRCIXDELTA.MAR; 1,~ ) 
A 1816 SETIPL M#IPL$ SYNCH ; RAISE TO SYNCH | 
A 181 ae SCHSWAKE ; WAKE PROCESS 
A 1818 SETIPL #JPLS_ASTDEL > LOWER IPL ps 
A 181 MOVL RS RO ; SET ADDRESS FOR RELEASE :* 
A 1820 JMP - @#EXESDEANONPAGED ; FREE BLOCK AND EXIT :* 
A 18¢1 908: ; END OF CODE SEGMENT :* 
A] § . PAGE :* 
OBGA 1824 -SBTTL DPLONG = DEPOSIT LONGWORD TO PROCESS :* 
OBGA 1825 DPLONG: <WORD ; SIZE OF CODE SEGMENT 
A 1826 208: TFNOWRT #4, akP_RETLOC(RS) ,30$ IF NOT WRITABLE THEN SKIP IT ; 
A 1 MOVL P’VALOE(RS) ,a@FP RETLoc (aS) ; RETURN VALUE :* 
A 1828 308: MOVL ; SET ADDRESS FOR RELEASE :* 
A 4 JMP Fem ; FREE BLOCK AND EXIT :* 
OBGA 1830 908: ; END OF CODE SEGMENT : 
82A 1831 DELEND: ; ea 
082A 183¢ ~ENDC ; 7 
082A ; ; NORMAL END STATEMENT WITHOUT START ADDRESS :* 
OBA 3 USED TO ASSEMBLE XDELTA FOR EXEC DEBUGGING. :* 
082A 805 ~END :* 
+4 
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: A 
: A 
; 
eu 
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“SEP-1984 02:02:16 VAX/VMS Macro : “SRCJEND.MAR:1 (1) 
= EXECUTIVE DEBUGGER tia ts, 95:25:18 DISKSVMSMASTER np 
cohen table 10 : 
ym H 4 
. secaasak Rf INBUF Bie Rk 
2ean 
ASTEN O88 4 INSBR 000 0482 R 0 
BLANK 09 GEAR ie . 69 ze oss 
MSG = 8 BS R LINEFEED 2900 FO R 0 
BRKADR = 000001 : LOcOUT 0 465 R 0 
BRKCOM = 0000 43 4 8 LOcP 38 OeF? 0 
BRKDSP = 96 be 4 6 LOCPROMPT D0005F0 R 0 
un 3 oe Rites 
BREPOL = 0000 . f e MCHKSAV 09 OOK R 05 
CLR_730 60000607 R 03 BEYEE Steeceed x 0g 
CLR=780 O00060A RO MODES GB00%45 R08 
CLR-END QO00057F R 0 noe = 00000 
ON 944694 Se NBRK = 90000488 R02 
COMMA 00000000 R 0 FR 02 
CONTEXT = 9000008C NEXTDOT 9000095 ROS 
ae " gagopet egg MEO duogg99¢ 
N = 
T $0000086 : 05 NMODES = 0000002A 
CURTYPE 80000198 ROS were = 09000008 
IT $0000266 R 65 NTERM ~ 00000256 R 02 
ay ne gouggess & 88 
Boooeges RODS OPERATOR = 99000012 
pear i es * BRE» 
a. 0900099 . oe OUTBB 90000888 R 8 
cies Sn re 
EQUALS 000004AB R 02 OUTCHAR 00000364 R 02 
ERR Q000060A R = 02 OUTCOM = 00000004 
ERR 00000281 R Oe OUTER ” 90000350 R 02 
ERRG QO00019E R = 0 OUTDIGIT 90000192 R 2 
ERROR 00000456 R 0 TER 136 R 0 
ESCAP : teeeeree x 3 A ap9o0ere . 05 ad 
EXESACVIOLA gtereree X 05 OUTPUT 00000324 R 02 $0 
EXESBREAK eteeeeee X02 our itt a $0 
EXESGB_CPUTYPE eereneee =X 05 ouTRS 0 ty R 0 $0 
EXESROPRAN eeeeeree xX OUTSPACE BR 888 7A R 0 
EXESTBIT oooosi7 R =o OUTZBUF 0000037E R = 0 $0 
EXECUTE 0 Hs R 27STRIN eeeeeeee XX 0 $C 
FI 00000 + 8 PFNSAB_STATE aeeeeene X 0 $0 
fe $9098 40 R 6 PFNSAB_TYPE eeeeeeee x 8 $0 
F 00000044 R PFNSAL~BA eeeneeee x $e 
FG 0000048 R PFNSAL_PT aeeeeeee XK 0 
FS 4's Fe PENSAW-REFCNT teeeeeee X 0 or 
FCTR BI R PFNSAW_SWPVBN eeneeeee X 0 | 
FETCH 000007CD R PFNSAX_BLINK eeeeeeee = § X 8 $C 
sha SH rua Siis 
c = 
GETCAD i 4 Pre. 1PL = a 0000 
GLOBL 0000575 R PRS. 


XDELTA = EXECUTIVE DEBUGGER "§-SEP~1984 08:02:16 VAX/VMS Macro. V04-00 Page 55 
Symbol table =SEP-1980 19:49:15 DISKSVMSMASTER:CMP.SRCJEND.MARTI (1) 
PRS_MAPEN = 8 TERM 1 R 
tee : BaSsie rth aE 
$S_RXD! = VALR SAE R 
PRE SeoBS : i? Marat eae 
= = 
PRS_SID TYP780 = 1 V-ATBRK = 094 
PRE TAO = 00 0 V7 : 009 
134 So00082s RO v8 = 90000008 
= 
PRIMARY 00000168 R 8 v-F5 = 44 $ 
OCED O00057E VTINFIELD = 000 
PROCEED 4444 51 R 0 V_NEGATE = 0000000 
PROGCTR 00005A2R sO V7OPEN = 90000000 
PSL$S_CURMOD = 0000000 VPREG = 0000001F 
PSL$V_CURMOD = 4 4d V_PRMODE = 44 
sia ne a 
QUANT Oo000s9¢ RS V7TBITOK = 00000005 
QuoT = 00000027 XBELACV OO00SFO R02 
QUOTE 000007DD R «02 XDELBPT O0006F4 RG 02 
RDBUF = 90900002 XDELDBG 0000778 ROD 
RDCR = 0000000 XDELIBRK 000000BC RG 03 
REGCOM 0000058C R02 XDELTBIT 0000764 RG 02 
REGISTER 00005B4 R 03 XDEL_LOADBA 0000130 RG «09 
RESET 00000477 R 0 XDSSGL_XESTRING 0000015C RG 02 
RESTORE 90000680 R 92 XDSSGL-XF STRING 00000160 RG 02 
RESTORR 000006 R 02 XDSSGT_WORD_PFN ReRRRERE x 02 
RETURN 00000284 RO EG 000005E2 R03 
SET 00000991 R sO XREGV 00000124 ROO 
UBOUT = si 444 7F XSET 00000500 R 02 
SAVAP 00000 R 02 
AVE 90000600 R 9 
SAVOCR 9000084 R 02 
SAVPC QOOOOOAC R 02 
SAVPSL 9090008) R 9 
SAVR2 90000078 R 0 
SAVRCR 90000086 R 9 
SAVREG 00070 R sO 
SAVRXCS 90000088 R 0 
p 00000A8 R 0 
0000181 R 
SCBSAL_BASE a ar 
SCHSGL~CURPCB teeeeere x 
SCHS$GL_PCBVEC eererere x 8 
SECOND 0 R 
SEMI R 9 
SETBRK R 
SHFT R 
SHOBRK R 
SLASH R 
SL SH . 
STATUS R 
STEP R 
SUPERST R 
TAB R 
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! Psect synopsis ! 


domo e mr eaasr wow oe 4 


PSECT name Allocation PSECT No. Attributes 


. ABS 9000000 ¢ 9.) 00 ¢ 0.) NoPIC “USR CON ABS 
$ABSS 0 
ZSDEBUGXDELTA 5 


444 ( ) 
000082A ( 2090.) ( 2.) NOPIC USR CON REL 
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! Performance indicators ! 


$e eecenoe Sennen a aoe meen we + 


Phase Page faults CPU Time Elapsed Time 
Initialization 38 8:90:00. 11 68: 00:80. 27 
gemnene processing 124 She! 1.02 38: 0:04.74 
405 0:00:15.16 8200 108-88 
Synbol table sort 2 00:00: ¢- 0:00:03.57 
Pas 33 00:00:05. 0:00:12.81 
Symbol table output 24 83: 0:00. 8:88:8 -68 
Psect synopsis output 0:00:00. 0:00: 3-8 
Cross-reference output 00: B33 5 38? 09:89 -8 
Assembler run totals 93 00:00:23.9 0:01:06.82 


The working set Limit was 1950 pages. 

87249 bytes_(171 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space yea to hold 1237 non-local and $4 local symbols. 
1842 source Lines were read in Pass 1, produci ng! object records in Pass 2. 

24 pages of virtual memory were used to define 23 macros. 
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Macro Library name 


$255$D0UA28: (MP.OBJIMP.MLB; 1 10 
- 55$DUA28:(SYS$.0BJJLIB.MLB; 1 10 

$255$DUA28: SYS IBISTARLET ALB: 2 4 
TOTALS (all Libraries) 2 


1396 GETS were required to define 28 macros. 
There were no errors, warnings or information messages. 


VAX/VMS Macro He 
DISKSVMSMASTER: (MP.SRCIJEND. MAR’ ; 


LCL ons NOEXE NORD NOWRT NOVEC BYTE 
1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 
LCL NOSHR 


MACRO/LIS=L1S$:XDELTA/OBJ=0BJ$:XDELTA MSRCS$:MPPREF IX/UPDATE=(ENHS :MPPREF 1X) *MSRC$:XDEL TA/UPDATE=(ENHS: XDELTA) *MSRC$: END/UPDATE=(ENHS 


56 MSC 
(1 


WRT NOVEC BYTE 


EXE RD WRT NOVEC LONG 


£2n £$ S Stes Ssessssssssssss 
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bases EQUIPMENT CORPORATION 


| 0249 AH-BT13A-SE 
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